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SURVEILLANCE  RADAR  DETECTION  (SURDET)  PROGRAM 


INTRODUCTION 

The  Radar  Analysis  Staff  of  the  Naval  Research  Laboratory  has  previously  developed 
the  Surveillance  Radar  Systems  Evaluation  Model  (SURSEM ) ( 1]  for  evaluating  radar  sys- 
tems. SURSEM  produces  radar  single-scan  and  cumulative  probability -of-detection  values  as 
a function  of  target  range  and  orientation.  The  radar  operates  within  a specified  scenario, 
defined  by  the  user  to  include  the  target  to  be  detected,  up  to  nine  additional  sources  of 
jamming  radiation,  and  an  optional  environment  of  wind,  rain,  and  multipath  propagation. 

Future  radars  will  use  automatic  detection  and  tracking  systems;  consequently  prob- 
ability-of-detection  values  are  insufficient  for  evaluating  system  performance.  For  instance, 
in  a scenario  involving  a target  raid,  questions  arise  as  to  whether  the  multiple  targets  can  be 
resolved,  how  accurate  the  position  estimates  are,  and  whether  the  correct  tracks  can  be 
initiated.  To  solve  some  of  these  problems,  SURSEM  was  modified  into  a Monte-Carlo 
simulation  that  produces  target  detections  and  estimates  of  position.  This  Monte-Carlo  pro- 
gram, called  the  Surveillance  Radar  Detection  (SURDET)  Program,  can  be  used  as  the  input 
for  the  Multiple  Radar  Integrated  Tracking  (MERIT)  program  [ 2|  to  solve  some  of  the 
proposed  questions. 

This  report  describes  the  current  status  of  the  computer  model  and  provides  the 
potential  user  with  instructions  for  its  independent  use.  This  section  gives  the  background 
and  a general  description  of  the  model.  The  second  and  third  sections  describe  the  computer 
routines  unique  to  the  2D  and  3D  versions  of  SURDET:  SURDET2D  and  SURDET3D 
respectively.  In  addition,  in  each  section  instructions  to  the  user  include  a description  of  the 
input  to  SURDET  and  the  output  from  SURDET.  Finally,  the  routines  common  to  both 
versions  of  SURDET  are  discussed  in  the  fourth  section. 


Model  Overview 

SURDET  produces  radar  detections  and  position  estimates  for  each  radar  scan.  These 
detections  correspond  not  only  to  target  detections  but  also  to  correlated  and  uncorrelated 
false  alarms.  The  radar  operates  within  a specified  scenario  defined  by  up  to  20  targets  and 
jammers  in  a clutter  environment  of  rain  or  sea,  in  addition  to  multipath  propagation.  Each 
target  trajectory  can  take  one  of  three  forms:  a straight  line  between  the  starting  point  and 
the  endpoint,  a straight  line  in  the  xy  plane  with  different  altitude  legs,  or  a constant- 
altitude  flight  with  a turn  between  two  straight-line  legs. 


SURDET  has  been  constructed  as  a modified  time-step  model.  The  time  steps  involved 
are  determined  by  the  elapsed  time  between  radar  scans  illuminating  the  target.  The  surveil- 
lance radar  under  examination  is  characterized  by  its  radar  scan  modes.  A radar  scan  mode  is 
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a means  of  defining  radar  operating  characteristics  for  the  illumination  of  a specific  geomet-  ! 

rica)  region.  Typical  radar  scan  modes  include  elevation  beams,  long-range  search,  high-angle  ! 

low-energy  search,  bumthrough,  and  horizon  scan.  At  the  onset  of  the  engagement  (when  I 

the  earliest  target  leaves  its  initial  position),  the  time  when  each  operational  radar  scan  mode  j 

will  first  illuminate  any  target  is  determined.  The  minimum  time  minus  30  s is  compared  to 
a maximum  start  time,  which  is  an  input  value,  and  the  smaller  of  these  two  times  is  used  as 
the  start  of  the  simulation.  The  additional  time  before  the  first  possible  target  detection  is 
necessary  for  clutter  generation  for  realistic  tracking  studies. 

For  each  radar  scan  the  signal  (target),  noise,  jamming,  and  clutter  energies  are  calcu- 
lated for  each  target  and  each  radar  scan  mode.  If  a target  detection  is  possible  (depending 
on  the  signal-to-interfering-power  ratio),  the  radar  return  is  simulated  pulse  to  pulse  in  the 
test  cell  of  interest  and  in  the  surrounding  reference  cells.  This  level  of  detail  is  required  in 

order  to  take  into  account  the  problems  of  target  suppression  and  target  resolution  caused  ' 

by  nearby  targets.  Next,  target  detections  are  declared  by  comparing  the  test  cell  of  interest 

to  a threshold  generated  from  the  surrounding  reference  cells.  ; 

Since  multiple  detections  of  a single  target  can  occur,  such  detections  are  merged  into  ! 

a centroided  detection.  Finally,  the  centroided  detection  is  corrupted  by  the  effects  of  roll 
and  pitch.  The  results  of  SURDET  can  be  printed  out  and/or  written  onto  a file  for  later 
processing  by  the  MERIT  tracking  program  [2] . 

SURDET  currently  exists  in  two  versions:  SURDET2D  to  be  used  with  2D  radars  and  1 

SURDET3D  to  be  used  with  3D  radars.  Although  the  majority  of  the  subroutines  in  SUR- 
DET are  common  to  the  two  versions,  SURDET2D  and  SURDET3D  each  has  a unique 
executive  routine  plus  a small  set  of  unique  associated  routines.  The  second  section 
describes  the  SURDET2D  routines,  and  the  third  section  describes  the  SURDET3D  routines. 

These  sections  also  describe  the  required  user  input,  which  differs  slightly  between  the  two 
versions.  The  fourth  section  describes  subroutines  common  to  both  the  SURDET2D  and 
SURDET3D  versions  of  SURDET.  Therefore  the  reader  should  consult  both  the  second  and  ' 
fourth  sections  for  a complete  description  of  all  routines  comprising  SURDET2D  and  the 
third  and  fourth  sections  for  similar  coverage  of  SURDET3D. 


Future  Growth 

As  with  most  computer  programs,  SURDET  will  continually  change.  Areas  identified 
for  future  modification  include: 


• Generation  of  realistic  clutter-to-noise  ratios  (presently  the  values  are  34.8937  and 
30.54  for  fixed  and  variable  clutter  detections  respectively), 


• Generation  of  other  automatic  detectors  in  addition  to  the  present  amplitude 
integrators, 

• Modification  of  the  signal- processing  algorithm  by  including  MT1  and  coherent 
integration,  and 

• Inclusion  of  more-detailed  models  of  target  radar  cross  sections  as  applications 
dictate. 
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The  authors  of  this  report  are  available  on  a limited  basis  for  consultation  on  problems 
related  to  the  compilation  and  execution  of  the  model.  Fortran  listings  are  found  in  appen- 
dixes B,  C,  and  D,  and  a program  deck  is  available  on  request.  The  authors  are  also  inter- 
ested in  negotiating  with  potential  sponsors  for  the  development  of  the  model’s  growth 
potential  and  in  some  aspects  of  performing  analyses  of  radar  systems  through  the  applica- 
tion of  the  model. 


ROUTINES  EXCLUSIVE  TO  SURDET2D 
SURDET2D  Executive  Routine 

The  SURDET2D  executive  routine  drives  the  detection  model  for  21)  surveillance  radar 
systems.  The  model  itself  consists  of  subroutines  that  perform  specialized  functions;  the 
SURDET2D  executive  routine  links  these  routines  together  (Fig.  1).  The  modular  construc- 
tion of  the  model  facilitates  changes  nd  additions  to  the  existing  version. 

The  SURDET2D  executive  routine  begins  by  setting  constants  and  conversion  factors 
for  use  by  the  model’s  subroutines.  It  then  reads  the  first  two  dp*»  input  cards.  (The  next 
subsection  describes  user  input,  and  Table  1 describes  the  variab.  first  card  contains 

the  output-control  parameter  ANSI,  which  determines  the  amoui  d output  pro- 
duced. The  options  include  no  output  printed  (ANSI  = 0),  only  the  t.  output 

printed  (ANSI  = 1),  and  the  detailed  output  printed  (ANSI  = 2).  The  st  iput  card 

contains  the  run  identification,  which  consists  of  an  integer  radar  identifi  vat.vA  followed  by 
alphanumeric  descriptive  information  of  the  user’s  choice.  The  reader  identification  is  used 
to  label  the  output  disk  files  for  subsequent  use  as  input  to  the  MERIT  tracking  program 
12]. 

SURDET2D  monitors  the  input  of  the  scenario  data  by  calling  a sequence  of  sub- 
routines. Subroutine  INITAL  reads  the  radar  data,  subroutine  TARGET  reads  the  parame- 
ters defining  the  targets  and  jammers,  and  subroutine  EN  VIRN  reads  the  environmental 
data.  Subroutines  FCINIT  and  VCINIT  are  called  to  input  the  data  defining  the  fixed  clutter 
area  and  variable  clutter  areas  respectively.  Roll  and  pitch  characteristics  of  the  radar  plat- 
form are  read  by  subroutine  STBINT. 

The  game  time  by  which  the  radar  must  be  initialized,  RINIT,  is  next  read  as  an  input 
directly  by  the  executive  routine  and  then  modified  by  the  radar  scan  offset,  if  any.  Sub- 
routine MATCH  is  called  to  determine  the  time  each  target  first  comes  within  the  instru- 
mented range  of  the  radar.  The  minimum  time  among  this  set  of  times  from  MATCH  is 
then  further  decreased  by  30  s to  insure  clutter  samples  prior  to  detections,  and  the  earlier 
of  this  result  and  RINIT,  the  maximum  radar  initialization  time,  becomes  the  game  initial- 
ization time.  The  end  of  the  game  is  set  to  coincide  with  the  last  target’s  reaching  the  end  of 
its  trajectory.  At  this  point  an  identification  record  for  the  detection  output  file  consisting 
of  the  radar  identification  and  the  radar  scan  rate  is  written  on  the  logical  unit  specified  by 
the  parameter  IOUT. 

The  recursive  portion  of  the  routine  begins  with  the  calculation  of  the  positions  of  all 
targets  and  jammers  at  current  game  time  T by  subroutine  NEWPOS.  Then  for  each  defined 
radar  scan  mode,  all  active  targets  are  examined  for  possible  detections.  In  particular,  for  a 
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Fig.  1 — Subroutine  linkage  by  the  SURDET2D  executive  routine.  The  solid  lines  indicate 
program  flow,  and  the  dashed  lines  indicate  subroutines  called.  The  names  in  parentheses  are 
entry  points.  The  loops  for  multiple  radar  modes  and  multiple  targets  are  not  indicated. 
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given  radar  scan  mode  J,  the  executive  routine  first  determines  if  a target  I is  within  instru- 
mented range,  is  above  the  radar  horizon,  is  within  the  appropriate  angular  vertical  coverage 
of  the  pencil  beam  or  the  cosecant-squared  beam,  and  is  beyond  the  minimum  radar  range. 
Unless  all  of  these  conditions  are  met,  target  1 is  dropped  from  further  consideration  by  this 
scan  mode.  The  routine  next  computes  the  signal  energy  and  the  noise  and  clutter  energies 
for  target  1 by  calling  subroutines  SIGNAL  and  NOISE  respectively.  It  then  uses  subroutine 
MWDET  to  determine  any  detections  of  the  target  by  radar  scan  mode  J,  printing  a record 
of  each  detecticv  if  the  print-control  parameter  ANSI  indicates  that  detailed  output  is 
desired. 

When  all  targets  active  at  current  game  time  T have  been  examined  by  scan  mode  J, 
subroutine  MEKDET  is  called  to  merge  adjacent  detections  and  estimate  the  range,  azimuth, 
and  signal  power  of  the  centroided  detections  for  scan  mode  J.  The  centroided  detections 
are  further  modified  for  roll  and  pitch  of  the  radar  platform  by  subroutine  STAB2.  Once 
this  procedure  has  been  completed  for  all  radar  scan  modes  at  game  time  T,  detections  of 
fixed  and  of  variable  clutter  at  time  T are  determined  by  calls  to  subroutine  FXCLT2  and 
VRCLT2  respectively.  A report  of  centroided  target  detections  by  all  scan  modes  and  false 
alarms  (clutter  detections)  for  game  time  T is  printed  if  ANSI  indicates  that  any  printed 
output  is  desired.  A similar  output  scan  record  for  use  as  subsequent  input  to  the  MERIT 
tracking  program  (2]  is  written  on  the  logical  unit  specified  by  IOUT. 

To  initiate  a new  radar  scan,  the  current  game  time  T,  which  represents  the  time  the 
radar  starts  its  current  scan  at  zero  azimuth,  is  increased  by  the  radar  scan  period  (as  specified 
for  radar  scan  mode  1).  If  the  new  game  time  does  not  exceed  ENDTIM,  the  time  at  which 
the  run  ends,  then  control  is  returned  to  the  beginning  of  the  recursive  portion  of  the  pro- 
gram. Otherwise  a recycle  control  parameter  is  read  which  specifies  one  of  the  following 
four  options: 

• A new  scenario  is  to  be  read  to  initiate  a new  run,  in  which  case  program  control  is 
transferred  to  the  beginning  of  the  executive  routine; 

• Radar  parameters  from  the  run  just  completed  are  to  be  retained,  but  the  rest  of 
the  scenario  is  to  be  redefined  for  a new  run,  so  program  control  is  transferred  to  the  point 
where  subroutine  TARGET  is  called; 

• Radar  and  target  parameters  are  to  be  retained,  but  a new  environment  is  to  be 
specified  for  a new  run,  so  program  control  is  transferred  to  the  point  where  subroutine 
ENVIRN  is  called; 

• All  runs  are  completed. 
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Table  1 - SURDET2D  Variables 


Fortran  Variable 

Description 

ACON 

Constant  used  in  sea-state  calculations  (described  in  a later  section  in 
the  subsection  on  subroutine  JAM) 

ACONZ 

Azimuth  separation  for  declaring  two  detections  (rad) 

ALPHAD 

Grazing  angle  of  a clutter  patch  (deg) 

AMBN 

Thermal  noise  energy  (J) 

ANSI 

Printed  output  control: 

0 = no  output  printed 

1 = detection  output  only  printed 

2 = detailed  output  printed 

AZ(I,K) 

Azimuth  of  the  fcth  centroided  detection  of  target  I 

AZOUT(L) 

Azimuth  of  the  /th  clutter  detection 

BETA 

Constant  used  in  sea-state  calculations  (described  in  the  subsection 
on  subroutine  JAM) 

BHDEG 

Azimuth  of  target  I (deg)  for  printing 

BUF 

Scan-output- ID  array  written  on  logical  unit  IOUT 

BUF(l) 

Scan  number 

BUF(2) 

Start  time  of  the  present  scan  (s) 

BUF(3) 

Number  of  detections  (including  false  alarms) 

BUF(4) 

Radar  ID 

BUF(5) 

Ship’s  heading  (rad) 

BUF(6) 

Total  number  of  targets 

BUFA 

Detection-history  array  written  on  logical  unit  IOUT  for  each  target 
detection  or  false  alarm  K 

BUFA(1,K) 

Target  number  or  clutter  detection  number  of  the  fcth  detection 

BUFA(2,K) 

Range  of  the  fcth  detection  (n.mi.) 

BUF  A(3,K) 

Azimuth  of  the  fcth  detection  (rad) 

BUFA(4,K) 

Elevation  of  the  fcth  detection  (rad) 

BUFA(5,K) 

Time  of  the  fcth  detection  (s) 

BUFA(6,K) 

Signal  energy  of  the  fcth  detection  (dB) 

BUFA(7,K) 

Roll  angle  of  the  fcth  detection  (rad) 

BUFA(8,K) 

Pitch  angle  of  the  fcth  detection  (rad) 

BUFB 

Target  true-position  array  written  on  logical  unit  IOUT  for  each  de- 
fined target 

BUFB(l.I) 

Target  number  (I) 

BUFB(2,I) 

Slant  range  to  the  true  target-I  position  (n.mi.) 

BUFB(3,I) 

Azimuth  of  the  true  target-I  position  (rad) 

BUFB(4,1) 

Elevation  of  the  true  target-I  position  (rad) 

BUFB(5,I) 

Time  when  the  radar  scans  by  target-1  (s) 

BVDEG 

Elevation  of  target  I measured  from  the  horizon  in  degrees  for  print- 
ing 

CCM 

Speed  of  light  (cm/s) 

CNM 

Speed  of  light  (n.mi./s) 

CONV 

Conversion  factor  for  converting  natural  logarithms  to  dB 
(10  log)0  e) 

DBE 

Signal  energy  of  target  I with  respect  to  mode  J (dB  re  1 J) 

Tabic  continues. 
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Table  1 (Continued)  — SURDET2D  Variables 


Fortran  Variable 

Description 

DBN 

Total  noise  energy  with  respect  to  mode  J (dB  re  1 J) 

DWL(J) 

Frequency  increment  for  mode  J (Hz) 

1 ELEV(I.K) 

Elevation  of  the  feth  centroided  detection  of  target  I 

j El.OUT(L) 

Elevation  of  the  (th  clutter  detection 

ENDTIM 

'l  ime  at  which  the  current  run  terminates  (h) 

ENVIR(3) 

Multipath  indicator: 

0 = no  multipath 

1 = multipath 

FAC4 

Multipath  propagation  factor  to  the  fourth  power 

FOPIQB 

(47T)3 

FOPISQ 

(4tt)'2 

GN 

One-way  antenna  gain 

IANS 

( 

Recycle  run  control: 

1 = new  run  with  a new  radar  and  new  targets  and  environ- 

ment 

2 = new  run  with  the  current  radar  and  new  targets  and 

environment 

3 = new  run  with  the  current  radar  and  targets  and  a new 

environment 

4 = all  runs  completed 

1 IC 

Number  of  fixed  clutter  detections  on  the  current  scan 

1 IC’NT 

Detection  counter  used  for  the  output  file 

IMODE(J.l) 

Number  of  pulses  integrated  for  mode  J 

[OUT 

Logical  unit  for  the  detection  output  file 

ISC 

Radar-scan  counter 

1ST  ATM ) 

I 

Status  indicator  for  target  I: 

0 = target  is  inactive 

1 = target  is  active 

iswit 

Frequency  indicator: 

0 = frequency  of  the  current  scan  mode  is  different  from  the 

previous  mode 

1 = no  change  in  frequency  from  the  last  scan  mode 

ITITLE 

Array  containing  alphanumeric  run  identification 

IV 

Number  of  fixed  and  variable  clutter  detections  on  the  current  scan 

j MER(I) 

Indicator  of  interfering- target  problems  with  respect  to  target  I: 

0 = no  merging  problem 

-1  ~ merging  problem  with  target  I,  target  detected 
-2  = merging  problem  with  target  I,  target  not  detected 

MIJL 

Multipath  indicator: 

0 = no  multipath 

1 ~ multipath 

| NC(  K I 

Index  of  the  feth  detected  fixed  clutter  point 

S(X)N'/. 

I’ulse  separation  for  declaring  two  detections 

Nl)KT(l) 

Number  of  centroided  detections  of  target  1 

1 NEXT 

Current  radar  scan  mode 

Table  continues. 
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Table  1 (Continued)  — SURDKT2D  Variables 


Fortran  Variable 

Description 

NHKK 

Number  of  reference  cells  on  each  side  of  the  test  cell 

NSCAN 

Number  of  radar  scan  modes  defined 

NT  A ltd 

Number  of  targets  (to  be  detected) 

OFR 

Frequency  of  the  current  radar  scan  mode  (MHz) 

PBBS 

Klevation  beam  center  of  the  current  radar  mode 

PITCH(  1 ) 

Pitch  angle  at  the  time  of  detection  of  target  I 

ITOUT(K  i 

Pitch  at  the  time  of  the  fcth  clutter  detection 

RADIAN 

Conversion  factor  for  radians  to  degrees  ( 180/77) 

It  ANdK(I.K) 

Range  of  the  feth  centroided  detection  of  target  I 

RC(  1 ) 

Basic  radar  frequency  (MHz) 

RC(  4 ) 

Horizontal  3-dB  beam  width  (rad) 

RC(5) 

Vertical  3-dB  beamwidth  (rad) 

RC(6) 

( )ne-  way  antenna  gain 

ltd!  11) 

Power  received  for  target  1 (W) 

RC(  12) 

Signal  energy  for  target  I (J) 

RC(13) 

Clutter  energy  for  target  I (J) 

RC(  1 4 ) 

Thermal  noise  plus  jamming  for  target  I (J) 

RC(15) 

Number  of  reference  cells  on  each  side  of  the  target  cell  used  in  the 
moving-window  detector 

RC(16) 

Clutter  correlation  coefficient 

RC(17) 

Number  of  standard  deviations  used  in  the  detection  threshold 

RC(  18) 

Azimuth  offset  between  beam  positions  (rad) 

RC(20) 

Detector  video  type: 

0 = linear  video 

1 = log  video 

RC(21 ) 

Number  of  reference  cells  used  to  calculate  the  threshold: 

0 - all  cells  used 

<0  half  with  smaller  mean  value  used 
>0  = half  with  larger  mean  value  used 

RC(22) 

Parameters  used  to  calculate  the  threshold: 

1 = mean  used 

2 = mean  and  variance  used 

RE 

4/3  of  the  earth’s  radius  (m) 

It  KR 

Ratio  of  the  basic  radar  frequency  to  the  frequency  of  the  current 
radar  mode 

RINIT 

Latest  time  by  which  the  radar  is  to  begin  scanning 

RLOUT(K) 

Roll  at  the  time  of  the  kth  clutter  detection 

RMOI)K(.IJ) 

Lower  3-dB  point  of  the  elevation-angle  coverage  for  mode  .J  (deg) 

RMODK(J,2) 

Upper  3-dB  point  of  the  elevation-angle  coverage  for  mode  .1  (deg) 

RMODK(.J,i)) 

lnterlook  period  for  mode  J (h) 

RVK)DE(1,6) 

Scan  offset  for  mode  1 (h) 

KMODE(J,7) 

Instrumented  range  for  mode  J (n.mi.) 

RMODK(J,9) 

Earliest  time  any  target  enters  the  instrumented  range  of  radar 
mode  .1  (h) 

ROLL(J) 

Roll  angle  at  the  time  of  detection  of  target  1 

Table  continue*. 
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Table  1 (Concluded)  — SURDET2D  Variables 


Fortran  Variable 

Description 

ROUT(K) 

Range  of  the  feth  clutter  detection 

SHIP(5) 

Heading  of  the  ship  (rad) 

SIGC 

Total  sea-clutter  energy 

SMODE(J.l) 

Blanking  range  for  mode  J (n.mi.) 

SN 

Signal- to-noise  ratio  (dB),  assuming  the  radar  is  pointing  at  the 
target 

SNUET(I,K) 

Signal  energy  of  thefcth  centroided  detection  of  target  1 

SNTRUE 

Signal  energy 

SOUT(K) 

Signal  energy  of  the  kth  clutter  detection 

T 

Curr.  nt  game  time  (h) 

TARCS 

Target  cross  section 

THH 

Basic  radar  horizontal  3-dB  beamwidth  (rad) 

THV 

Basic  radar  vertical  3-dB  beamwidth  (rad; 

TIME(I) 

Time  of  the  detection  of  target  1 (s) 

TOUT(K) 

Time  of  the  fcth  clutter  detection  (s) 

TRGPOS(I,4) 

Slant  range  of  target  I (n.mi.) 

TRGPOS(I,5) 

Azimuth  of  target  I (rad) 

TRGPOS(I,6) 

Elevation  of  target  I measured  from  the  horizon  (rad) 

TSCAN(l.J) 

Time  when  target  I comes  within  the  instrumented  range  or  radar 
mode  J (h) 

V 

Range  extent  of  the  clutter  cell  (m) 

X.JAMN 

Total  jamming  energy  (J) 

XKTOMS 

Conversion  factor  for  knots  to  meters  per  second 

XNMTOM 

Conversion  factor  for  nautical  miles  to  meters 

XYZF(l,4) 

Time  when  target  1 reaches  the  endpoint  of  its  trajectory  (h) 

Input  for  SURDET2D 

An  engagement  scenario  consists  of  a radar,  one  or  more  targets  to  lx;  detected,  and  an 
optional  number  of  sources  of  jamming  radiation  (subsequently  referred  to  as  jammers)  set 
in  a specified  environment.  The  number  of  targets  and  jammers  together  is  limited  to  20. 
The  required  input  information  is  divided  into  the  definitions  of  the  radar,  targets,  and 
jammers,  an  environment  with  optional  clutter,  and  output  and  recycle  control  parameters. 
The  data  cards  required  are: 

Data  card  1 -printed-output  control  integer  (15  format): 

0 - no  output  printed, 

1 = only  the  detection  output  printed, 

2 = detailed  output  printed; 
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Data  card  2— title  card  (14, 19A4  format): 

1.  Radar  integer  ID, 

2.  Alphanumeric  run  identification; 

Data  card  3— ship  (radar)  position  (4F8.2  format): 

1-3.  Position  coordinates  (x,  y,  z)  (kft), 

4.  Ship  heading  (deg); 

Data  card  4—11  basic  radar  parameters  (9F8.2,I2,F6.2  format): 

1.  Radar  frequency  (MHz), 

2.  Antenna  pattern  function  indicator  (0  = pencil  beam  and  1 = cosescant- 
squared  beam), 

3.  Receiver  noise  (dB), 

4.  Horizontal  3-dB  beamwidth  (deg), 

5.  Vertical  3-dB  beamwidth  (deg), 

6.  One-way  antenna  gain  (dB), 

7.  One-way  sidelobe  level  (dB  down  from  peak), 

8.  Receiver  loss  (dB), 

9.  Transmitter  loss  (dB), 

10.  Number  of  scan  modes  (limited  to  30), 

11.  Linear  polarization  (0°  to  90°,  where  0°  = horizontal  and  90°  = vertical); 

Data  cards  5 and  6 (one  set  for  each  radar  scan  mode)  — 15  parameters  for  each  mode 
(10F8.2/5F8.2  format): 

1.  Lower  3-dB  point  of  the  elevation-angle  coverage  (deg), 

2.  Upper  3-dB  point  of  thp  elevation-angle  coverage  (deg), 

3.  Peak  power  (MW), 

4.  Pulse  length  (ps), 

5.  Interlook  period  (s)  (must  be  identical  for  all  modes), 

6.  Scan  offset  (s), 

7.  Instrumented  range  (n.mi.), 

8.  Mode- dependent  loss  (dB), 

9.  Number  of  pulses  integrated  (limited  to  99), 

10.  Compressed- pulse  length  (ps), 

11.  Sea-clutter  improvement  factor  (dB), 

12.  Intermediate- frequency  bandwidth  (MHz)  (if  0,  the  bandwidth  is  set  at  1.0/ 
compressed-pulse  length), 

13.  Mode-dependent  frequency  increment  (MHz), 

14.  Blanking  time  (/us)  (if  0,  the  blanking  time  is  set  at  the  pulse  length), 

15.  Rain-clutter  improvement  factor  (dB); 

Data  card  7— seven  parameters  for  the  moving- window  detector  (7F8.2  format): 

1.  Number  of  reference  cells  on  each  side  of  the  target  cell, 

2.  Clutter  correlation  coefficient, 
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3.  Number  of  standard  deviations  used  in  the  threshold,  which  determines  the 
probability  of  false  alarm  (guidance  in  setting  the  threshold  value  is  given  by 
Appendix  A), 

4.  Number  of  detections  that  can  be  missed  with  the  detections  still  merging  into 
a single  detection, 

5.  Video-type  indicator  (0  = linear  video  and  1 = log  video), 

6.  Number  of  reference  cells  used  for  the  threshold  (0  = all  cells  used,  <0  = half 
with  smaller  mean  value  used,  and  >0  = half  with  larger  mean  value  used), 

7.  Parameters  used  to  calculate  the  threshold  (1  = mean  used  and  2 = mean  and 
variance  used); 

Data  card  8— number  of  targets  and  jammers  (total  limited  to  20)  (215  format): 

1.  Number  of  targets, 

2.  Number  of  jammers; 

Data  card  9 (one  card  for  each  target  and  jammer,  paired  with  a card  10)— 13  target 
parameters  (12F6. 2, 13  format): 

1-4.  Initial  coordinates  (x,  y,  z)  (kft)  and  time  (s), 

5-8.  Terminal  coordinates  (x,  y,  z)  (kft)  and  time  (s), 

9-11.  Head-on,  broadside,  and  minimum  radar  reflective  areas  (m1 2 3 4 5 6 7 8), 

12.  Jamming  power  density  (W/MHz), 

13.  Marcum-Swerling  cross-section  model  number; 

Data  card  10  (one  card  for  each  target  and  jammer,  paired  with  a card  9)— target  pro- 
file parameters  (I4.7F6.2  format): 

1.  Target  profile  type  (0  = straight-line  trajectory,  1 = altitude  legs,  and  2 = g 
maneuver  at  constant  altitude),  with  profile  parameters  2 through  8 that  fol- 
low being  ignored  for  target  profile  type  0 and  being  as  indicated  for  target 
types  1 and  2, 

2.  Number  of  altitude  nodes  (maximum  of  three),  for  target  type  1,  or  target 

speed  (kft/s),  for  target  type  2, . 

3.  First  altitude  node  (kft),  for  target  type  1,  or  initial  heading  of  the  target 
(deg),  for  target  type  2, 

4.  Time  of  the  target  arrival  at  the  first  node  (s),  for  target  type  1,  or  time  the 
maneuver  begins  (s),  for  target  type  2, 

5.  Second  altitude  node  (kft),  for  target  type  1,  or  radial  acceleration  of  the 
maneuver  (g’s),  for  target  type  2, 

6.  Time  of  the  target  arrival  at  the  second  node  (s),  for  target  type  1,  or  ignored 
for  target  type  2, 

7.  Third  altitude  node  (kft),  for  target  type  1,  or  ignored  for  target  type  2, 

8.  Time  of  the  target  arrival  at  the  third  node  (s),  for  target  type  1,  or  ignored 
for  target  type  2; 
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Data  card  11— four  environmental  parameters  (4F8.2  format): 

1.  Wind  speed  (knots), 

2.  Height  of  the  wind-speed  measurement  (kft), 

3.  Multipath  indicator  (1  = multipath  and  0 = no  multipath), 

4.  Rainfall  rate  (mm/h); 

Data  card  12— nine  fixed  clutter  parameters  (2I8.7F8.2  format): 

1.  Initialization  for  the  random- number  generator  for  generation  of  fixed  clutter 
points, 

2.  Number  of  fixed  clutter  points, 

3.  Probability  that  a clutter  point  is  detected, 

4.  Initial  range  of  the  clutter  area  (kft), 

5.  Final  range  of  the  clutter  area  (kft), 

6.  Standard  deviation  of  the  range  measurement  (percent  of  the  range- resolution 
cell  size), 

7.  Initial  azimuth  of  the  clutter  area  (deg), 

8.  Final  azimuth  of  the  clutter  area  (deg), 

9.  Standard  deviation  of  the  azimuth  measurement  (percent  of  the  horizontal 
3-dB  beamwidth); 

Data  card  13— two  basic  variable  clutter  parameters  (218  format): 

1.  Initialization  for  the  random- number  generator  for  generation  of  variable 
clutter  points, 

2.  Number  of  clutter  regions; 

Data  card  14  (one  card  for  each  clutter  region)— five  parameters  for  each  clutter  region 
(5F8.2  format): 

1.  Average  number  of  clutter  points  in  the  region, 

2.  Initial  range  of  the  clutter  area  (kft), 

3.  Final  range  of  the  clutter  area  (kft), 

4.  Initial  azimuth  of  the  clutter  area  (deg), 

5.  Final  azimuth  of  the  clutter  area  (deg); 

Data  card  15— four  roll  and  pitch  parameters  (4F8.2  format): 

1.  Maximum  roll  angle  (deg), 

2.  Maximum  pitch  angle  (deg), 

3.  Roll  period  (s)  (a  number  >0  should  be  specified), 

4.  Pitch  period  (s)  (a  number  >0  should  be  specified); 

Datacard  16— time  parameter  (F8.2  format): 

1.  Game  time  (s)  by  which  the  radar  must  initiate  scanning; 
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Data  card  17— recycle  control  parameter  (15  format): 

1 = a new  scenario  is  to  be  read,  with  the  next  data  card  being  data  card  1, 

2 = current  radar  parameters  are  to  be  retained,  but  new  targets  and  environment 

are  to  be  read,  with  the  next  data  card  being  data  card  8, 

3 = current  radar  and  target  parameters  are  to  be  retained,  but  a new  environment 

is  to  be  read,  with  the  next  data  card  being  data  card  11, 

4 = all  runs  completed. 

All  input  data  from  data  cards  2 through  16  are  printed  as  output  at  the  beginning  of  each 
run. 


i 


f 


Output  from  SURDET2D 

An  engagement  is  initiated  either  30  s prior  to  the  time  a target  first  comes  within  the 
instrumented  range  of  a radar  mode  or  at  the  latest  time  by  which  the  radar  must  be  initial- 
ized (as  specified  by  input),  whichever  occurs  first.  Once  initiated,  the  simulation  produces 
an  output  detection  report  for  each  radar  scan  until  the  engagement  terminates  with  the  last 
target  reaching  its  final  position.  A sample  printed  output  for  a single  scan  is  reproduced  in 
Fig.  2. 

The  sample  report  is  identified  as  scan  number  30  on  line  1.  The  radar  involved  has 
only  a single  scan  mode;  the  results  of  scan  mode  1 looking  at  target  1 and  target  2 are  given 
in  lines  3 through  5 and  6 through  8 respectively.  Lines  3 and  6 contain  the  following  infor- 
mation, as  indicated  by  the  heading  in  line  2: 


TARGET  Target  number, 

MODE  Radar  scan  mode  number, 

TIME  Time  of  the  scan  (s), 

RANGE  Slant  range  of  the  target  from  the  radar  (kft), 

AZ1M  Azimuth  angle  of  the  target  (deg), 

ELEV  Elevation  angle  of  the  target  (deg), 

SIGMA  Radar  cross  section  of  the  target  (m2 ), 

FACTOR  Multipath  pattern-propagation  factor  (dB), 

ESIG  Signal  energy  (dB  re  1 J), 

NAMB  Ambient  noise  (dB  re  1 J), 

NCLT  Clutter  energy  (dB  re  1 J), 

NJAM  Jamming  energy  (dB  re  1 J), 

E/N  Signal  - energy  - to-  n oise-  energy  ratios  (dB),  with  the  first  ratio  being 

the  value  when  the  radar  is  pointing  at  the  target  and  the  second 
ratio  being  the  actual  value  used  to  determine  a detection, 

MER  Indicator  of  the  interfering- target  problem  (to  tie  described  in  the 

subsection  on  subroutine  MWDET). 


Lines  4 and  5 report  two  detections  of  target  1.  The  range  and  azimuth  of  the  refer- 
ence cell  in  which  each  detection  took  place  are  given  under  RANGE  and  AZ1M  respec- 
tively. The  signal  amplitude  corresponding  to  each  detection  is  given  in  deciliels  (dB  re  noise 
energy)  under  ESIG.  Similarly  lines  7 and  8 report  detections  of  target  2. 
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Lines  9 through  28  are  the  data  constituting  the  output  record  written  on  logical  unit 
lOUT  for  subsequent  use  as  input  to  the  MERIT  tracking  program  [2) . (In  addition  the 
actual  range,  azimuth,  and  elevation  of  each  target  and  the  time  each  is  scanned  by  the  radar 
are  also  written  on  IOUT.)  Line  9 identifies  the  current  record  by  specifying  the  scan  num- 
ber, current  game  time  in  seconds,  number  of  detections  (including  false  alarms),  radar 
identification  augmented  by  2000,  ship’s  heading  in  radians,  and  number  of  targets  defined. 
The  remaining  lines,  labeled  by  detection  number,  provide  data  as  labeled  by  line  10  for 
each  centroided  target  detection  and  false  alarm  (fixed  or  variable  clutter  detection).  The 
information  provided  for  each  detection  starts  with  a detection  number:  0 through  99 
identifies  a target,  101  through  199  indicates  a fixed  clutter  point,  and  200  represents  a 
variable  clutter  point.  Following  the  detection  number  are  the  estimated  range  in  nautical 
miles,  the  azimuth  and  elevation  angles  in  radians,  the  time  of  detection  in  seconds,  the 
signal  energy  in  decibels,  and  the  roll  and  pitch  angles  in  radians.  Presently  the  signal  energy 
for  fixed  and  variable  clutter  points  is  set  to  34.8937  and  30.4567  dB  respectively.  If  the 
signal  energy  is  to  be  used  by  a tracking  program,  an  appropriate  signal  energy  must  be 
generated. 

An  output  report  as  shown  in  Fig.  2 is  printed  for  each  radar  (azimuth)  scan  when  the 
print  output  control  parameter  (data  card  1)  is  2.  If  the  parameter  is  1 , then  only  the  detec- 
tion history  given  by  lines  9 through  28  is  printed.  If  the  parameter  is  0,  u.en  no  output 
scan  reports  are  printed. 


Subroutine  FXCLT2 


Subroutine  FXCLT2  generates  fixed  clutter  points  and  is  called  once  per  scan  by  the 
executive  routine.  The  routine  is  initialized  by  calling  the  entry  point  FCINIT.  The  initial- 
ization section  reads  in  the  following  nine  inputs  with  a (2I8,7F8.2)  format  ('fable  2): 


I SET 
N 

PROB 

KS 

RF 

SIGR 

THS 

THF 

SIGA 


initialization  number  for  the  random- number  generator, 

number  of  fixed  clutter  points, 

probability  that  a clutter  point  is  detected, 

initial  range  of  the  clutter  area  (kft), 

final  range  of  the  clutter  area  (kft), 

standard  deviation  of  the  range  measurement  (fractions  of  a range  cell), 
initial  azimuth  of  the  clutter  area  (deg), 
final  azimuth  of  the  clutter  area  (deg), 

standard  deviation  of  the  azimuth  measurement  (fractions  of  a beam- 
width). 


The  initialization  section  calculates  the  range  cell  dimension  AR  by 


AR  - ctc/2,  (1) 

where  c is  the  speed  of  light  and  t,.  is  the  compressed  pulsewidth.  Next  the  input  values  are 
converted  to  nautical  miles  and  radians  for  internal  use.  Finally,  N fixed  clutter  points  are 
generated  by 

Ri-Rs  + (Rf  -Rs)Ui  (2) 


15 


4 


I 


DAVIS  AND  TRUNK 


and 


0imOs+(OF-Os)Vh  (3) 

where  R,  and  Ui  are  the  range  and  azimuth  of  the  clutter  points,  Rs  and  Rp  are  the  initial 
and  final  range  boundaries  of  the  clutter  area,  Qs  and  0 y are  the  initial  and  final  azimuth 
boundaries  of  the  clutter  area,  and  (7,  and  V ,•  are  independent,  uniformly  distributed 
random  numbers. 

The  detected  clutter  points  are  generated  by  calling  FXCLT2  once  per  scan.  For  each 
clutter  point  a uniform  random  number  (7  is  compared  to  Pr,  the  probability  of  detecting 
the  clutter  point.  If  U < Pr,  the  clutter  point  is  assumed  to  be  detected,  Gaussian  errors  are 
added  in  range  and  azimuth,  and  the  azimuth  measurement  is  corrupted  by  roll  and  pitch. 
The  range  measurement  is 


Rm  =(K  + 0.5)AR,  (4) 

where 

K = integer  {[Ri  + «R(-  2 log  (7,)1/2  cos  2irVi]/AR},  (5) 

in  which  a is  the  measurement  standard  deviation  and  (7,  and  Vj  are  uniformly  distributed 
random  numbers.  The  error  in  azimuth  is 

ea  = 0e(-21ogl7,)1'2  sin27rV,-,  (6) 

where  o(l  is  the  standard  deviation  of  the  azimuth  measurement.  The  angles  of  roll  R and 
pitch  P at  time  T are 


R = «max  sin  I2nt/TR  +4>r) 

and 

P = Pm ax  s»n  (2rr t/Tp  + 0,.), 


(7) 

(«) 


where  /<max  and  FmaX  are  maximum  roll  and  pitch  angles,  T/t  and  Tj,  are  the  cor- 
responding periods,  and  <plt  and  0/>  are  uniform  phase  angles  between  0 and  2ir . The  meas- 
ured azimuth  position  am  (in  the  deck  plane)  is  [3] 


am  = ^n 


-1 


sin  a cos  R + (cos  a sin  P + tan  c cos  P)  sin  R 


cos  a cos  P - tan  e sin  P 


+ 


(9) 


1 


and  the  measured  elevation  position  em  is 

em  ~ 0,  (10) 

where  a = II,  is  the  true  azimuth,  e = 0 is  the  true  elevation  of  the  clutter  point,  and  ea  is  the 
previously  calculated  azimuth  error.  The  detection  time  7',  is  proportional  to  the  azimuth: 

T,  = T0+  (AT)Ui/2ir,  (11) 

where  T()  is  the  time  of  the  start  of  the  scan  and  AT  is  the  scan  period. 
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Table  2 - FXCLT2  Variables 


Fortran  Variable 

Description 

A 

Azimuth  of  the  clutter  point  in  the  deck  plane  with  zero  measurement 
error 

AA 

True  azimuth  of  the  clutter  point  with  respect  to  the  ship  ( a in  Eq.  9) 

AM 

Azimuth  measurement  ( between  n and  37t) 

AZ 

True  azimuth  of  the  clutter  point  ( 0 , in  Eq.  11) 

AZOUT 

Azimuth  measurement  ( am  in  Eq.  9) 

CP 

Cosine  of  the  pitch  angle 

CR 

Cosine  of  the  roll  angle 

ELOUT 

Elevation  measurement  em  = 0 (Eq.  10) 

IC 

Number  of  fixed  clutter  points  detected  this  scan 

ISET 

Initialization  number  for  the  random-number  generator 

K 

Range  cell  of  the  measurement  (K  in  Eq.  4 ) 

N 

Number  of  fixed  clutter  points 

NC 

Index  of  the  clutter  point  detected 

N2 

Two  times  N 

N3 

Three  times  N 

N4 

Four  times  N 

PFAC 

Frequency  of  the  pitch  cycle 

PHASE(l) 

Phase  angle  of  the  roll  (<pR  in  Eq.  7) 

PHASE(2) 

Phase  angle  of  the  pitch  ( <t>P  in  Eq.  8) 

PMAX 

Maximum  pitch  angle  (Pmax  in  Eq.  8) 

PROB 

Probability  that  the  clutter  point  is  detected  (Pr  in  text  preceding 

Eq.  4) 

PTOUT 

Pitch  at  the  time  of  the  ith  detection  ( P in  Eq.  8) 

R 

True  range  of  the  clutter  point  (R,  in  Eq.  2) 

RADIAN 

57.29578°,  the  number  of  degrees  in  a radian,  or  180/7T 

RAN 

Array  of  uniform  random  numbers  (Ui  in  Eqs.  2,  5,  and  6) 

RAY 

F.ayleigh  random  number 

RC(4) 

Azimuth  beamwidth 

RC(19) 

Range-cell  dimension  (AR  in  Eq.  1) 

RES 

Range-cell  dimension  (AR  in  Eq.  1) 

RF 

Final  range  of  the  clutter  area  (Rr  in  Eq.  2) 

RFAC 

Frequency  of  the  roll  cycle 

RLOUT 

Roll  at  the  time  of  the  ith  detection  (R  in  Eq.  7) 

RMAX 

Maximum  roll  angle  (Rmax  in  Eq.  7) 

RMODE(l,5) 

Scan  period  (AT  in  Eq.  11) 

ROUT 

Range  measurement  (Rm  in  Eq.  4) 

RS 

Initial  range  of  the  clutter  area  ( Rs  in  Eq.  2) 

SHIP(5) 

Ship  heading 

SIGA 

Standard  deviation  of  the  azimuth  measurement  (ae  in  Eq.  6) 

SIGR 

Standard  deviation  of  the  range  measurement  (aR  in  Eq.  5) 

SOUT 

Energy  of  the  ith  detection 

SP 

Sine  of  the  pitch  angle 

SR 

Sine  of  the  roll  angle 

T 

Time  of  the  start  of  the  radar  scan  (T0  in  Eq.  11) 

Table  continue*. 
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Table  2 (Concluded)  — FXCLT2  Variables 


Fortran  Variable 

Description 

TAU 

Compressed  pulsewidth  (s)  (rc  in  Eq.  1) 

TE 

Tangent  of  the  elevation  angle  (zero) 

TH 

Uniform  distributed  phase  angle 

THF 

Final  azimuth  of  the  clutter  area  (0 y in  Eq.  3) 

THS 

Initial  azimuth  of  the  clutter  area  (0S  in  Eq.  3) 

TIMSCN 

Scan  period  (AT  in  Eq.  11) 

TIMZB 

Time  of  the  zero-bearing  crossing  (T0  in  Eq.  11) 

TOUT 

Detection  time  (T,  in  Eq.  11) 

TWOPI 

Two  times  3.1415926536,  or  27r 

Subroutine  INITAL 


Subroutine  INITAL  is  called  once  by  the  SURDET2D  executive  routine.  Its  purpose  is 
to  establish  constants,  to  read  ship  (radar  platform)  and  radar  data  in  kilofeet  and  seconds, 
and  to  convert  the  units  to  internal  units  (nautical  miles  and  hours)  for  use  by  other  sub- 
routines (Table  3). 


The  location  and  heading  of  the  ship  or  radar  platform,  which  is  assumed  to  remain 
stationary  throughout  an  engagement,  and  the  antenna  height  above  sea  level  are  specified 
by  four  radar- position  input  parameters  read  into  the  SHIP  array: 


SHIP(l)  — x position  coordinate  (kft), 

SHIP(2)  — y position  coordinate  (kft), 

SHIP(3)  — z position  coordinate  (antenna  height  above  sea  level)  (kft), 

SHIP(5)  — ship  heading  (deg). 

It  is  often  convenient  to  let  the  radar  platform  be  located  at  the  origin  < Cl,  0)  of  the  scenario 
coordinate  system. 

A radar  is  described  by  specifying  1 1 basic  parameters  followed  by  16  descriptors  for 
each  of  up  to  30  operational  radar  scan  modes  and  moving- window  detector  data.  Typical 
radar  scan  modes  include  long-range  search,  high-angle  low-energy  search,  bumthrough,  and 
horizon  scan.  The  11  basic  radar  input  parameters,  which  are  stored  in  the  RC  array,  in 
NSCAN,  and  in  POLRZ,  are: 


RC(1) 

RC(2) 

RC(3) 

RC(4) 

RC(5) 

RC(6) 

RC(7) 

RC(8) 

RC(9) 


— radar  frequency  (MHz), 

— antenna- pattern  indicator  (0  = pencil  beam  and  1 = cosecant-squared 
beam), 

— receiver  noise  (dB), 

— horizontal  3-dB  beamwidth  (deg), 

— vertical  3-dB  beamwidth  (cleg), 

— one-way  antenna  gain  (dB), 

— one-way  sidelobe  level  (dB  down  from  peak), 

— receiver  line  loss  (dB), 

— transmitter  line  loss  (dB), 
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NSCAN  — number  of  scan  modes  to  be  defined,  (a  number  not  to  exceed  .'iO), 
POLRZ  — linear  polarization  from  0°  to  90°  (0°  = horizontal  and  90°  = vertical). 


Each  radar  scan  mode  J is  described  by  the  following  15  input  parameters,  which  arc 
read  into  the  RMODE,  IMODE,  SUBC,  DWL,  and  SMODE  arrays: 


RMODE(J.l)  - 
RMODE(J,2)  - 
RMODE(J,3)  - 
RMODE'J,4)  - 
RMODE(J,5)  - 
RMODE(J,6)  - 
RMODE(J,7)  - 
RMODE(J,8)  - 
IMODE(J.l)  - 
RMODE(J.ll)  - 
SUBC(J)  - 
RMODE(J,12)  - 

DWL(J)  - 


SM  - 
SMODE(J,2)  - 


lower  3-dB  point  of  the  elevation-angle  coverage  (deg), 
upper  3-dB  point  of  the  elevation-angle  coverage(deg), 
peak  power  (MW), 
pulse  length  (ps), 

interlook  period  (time  between  scans)  (s), 
scan  offset  (relative  to  radar  initialization)  (s), 
instrumented  range  (n.mi.), 
mode-dependent  loss  (dB), 

number  of  pulses  integrated  (a  number  not  to  exceed  99) 
compressed- pulse  length  (ps), 
sea-clutter  improvement  factor  (dB), 

intermediate- frequency  bandwidth  (MHz)  (if  0 is  entered,  the  band- 
width is  set  at  1.0/(compressed-pulse  length)), 

mode-dependent  frequency  increment  (MHz)  (if  DWL(J)  is  nonzero, 
the  effective  horizontal  and  vertical  beamwidths  and  antenna  gain  for 
this  scan  mode  are  also  affected), 

blanking  time  (ps)  (if  0 is  entered,  the  blanking  time  is  set  at  the 
pulse  length), 

rain-clutter  improvement  factor  (dB). 


These  radar  scan  modes  arc  numbered  in  ascending  order  as  they  are  defined,  beginning 
with  1. 


The  moving-window  detector  is  defined  by  the  following  seven  input  parameters, 
stored  in  the  RC  array : 

RC(15)  — number  of  reference  cells  on  each  side  of  the  target  cell, 

RC(16)  — clutter  correlation  coefficient, 

RC(17)  — number  of  standard  deviations  used  in  the  threshold  (determines  the  prob- 
ability of  a false  alarm), 

RC(18)  — number  of  detections  that  can  be  missed  with  the  detections  still  merging 
into  a single  detection, 

RC(20)  — video-type  indicator  (0  = linear  video  and  1 = log  video), 

RC(21)  — number  of  reference  cells  used  for  the  threshold  (0  = all  cells  used,  <0  = 
half  with  smaller  mean  value  used,  and  >0  ~ half  with  larger  mean  value 
used, 

RC(22)  — parameters  used  to  calculate  the  threshold  (1  = mean  used  and  2 = mean 
and  variance  used). 

Subroutine  INITAL  also  performs  checks  on  the  input  data  with  the  result  that: 


• The  number  of  radar  scan  modes  is  limited  to  30, 


• The  interlook  period  for  each  mode  is  set  pqual  to  10  s if  its  input  value  is  zero  or 
negative. 
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• The  IF  "bandwidth  for  each  mode  is  set  equal  to  the  reciprocal  of  the  compressed 
pulse  length  if  its  input  value  is  zero  or  negative,  and 

• The  blanking  time  for  each  mode  is  set  equal  to  the  pulse  length  if  its  input  value  is 

zero. 


Table  3 — INITAL  Variables 


Fortran  Variable 

Description 

DWL(J) 

Frequency  increment  for  mode  J (MHz) 

IMODE(J,l) 

Number  of  pulses  integrated  for  mode  J 

IMODE(J,2) 

max  (PipTc,  1)  rounded  to  the  nearest  integer  for  mode  J,  where 
fl,F  is  RMODE(J,12) 

MILLION 

106 

MM 

Effective  number  of  pulses  integrated 

NSC  AN 

Number  of  scan  modes 

PI 

3.1415926536,  or  tt 

PIOVER2 

One-half  of  3.1415926536^r  tt/2 

POLRZ 

Linear  polarization  (0"  to  90°,  where  0°  = horizontal  anti  90°  = 
vertical) 

RADIAN 

57.29578°,  the  number  of  degrees  in  a radian,  or  180/zr 

RC(1) 

Radar  frequency  f (MHz) 

RC(2) 

Indicator  of  the  antenna  pattern  function: 

0 = pencil  beam 

1 = esc2  beam 

RC(  3 ) 

Receiver  noise 

RC(4) 

Horizontal  3-dB  beam  width  (deg  to  rad) 

RC(5) 

Vertical  3-dB  beam  width  (deg  to  rad) 

RC(6) 

One-way  antenna  gain 

RC(7) 

One-way  sidelobe  level 

RC(8) 

Receiver  losses 

RC(9) 

Transmitter  losses 

RC(10) 

Boltzman’s  constant  times  the  system  temperature,  or  kT  (J) 

RC(  15) 

Number  of  reference  cells  on  each  side  of  the  target  cell  used  in  the 
moving- window  detector 

RC'(  16 ) 

Clutter  correlation  coefficient 

RC(  17) 

Number  of  standard  deviations  used  in  the  detection  threshold 

RC(  18) 

Number  of  detections  that  can  be  missed  with  the  detections  still 
jnerging  into  the  single  detection 

RC(20) 

Detector  video  type: 

0 = linear  video 

1 = log  video 

RC(21) 

Number  of  reference  cells  used  to  calculate  the  threshold: 

# 

0 = all  cells  used 

<0  = half  with  smaller  mean  value  used 



>0  = half  with  larger  mean  value  used 

Table  continues 
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Table  3 (Concluded)  — INITAL  Variables 


Fortran  Variable 

Description 

RC(22) 

Parameter  to  denote  whether  the  mean  (RC(22)  = 1)  or  the  mean 
and  variance  (RC(22)  = 2)  should  be  used  to  calculate  the 
threshold 

RMODE(J,l) 

Lower  3-dB  point  of  the  elevation-angle  coverage  for  mode  J (deg) 

RMODE(J,2) 

Upper  3-dB  point  of  the  elevation-angle  coverage  for  mode  J (deg) 

RMODE(  J,3) 

Peak  power  for  mode  J (MW  to  W) 

RMODK(J,4 ) 

Pulse  length  for  mode  J (ps  to  s) 

RMOIJE(J,5) 

Interlook  period  for  mode  J (s  to  h) 

RMODK(J,6) 

Scan  offset  for  mode  J (s  to  h) 

RMODE(J,7) 

Instrumented  range  for  mode  J (n.mi.) 

RMODE(J,8) 

Mode- dependent  loss  for  mode  J 

RM0DE(J,1 1 ) 

Compressed-pulse  length  for  mode  J (ps) 

RMODK(J,12) 

Intermediate- frequency  bandwidth  for  mode  J (MHz  to  Hz)  (/1(|.- ) 

SHIP(l) 

x coordinate  of  the  ship  position  (kft  to  n.mi.) 

SHIP(2) 

y coordinate  of  the  ship  position  (kft  to  n.mi.) 

SH1P(3) 

Antenna  height  ( kft  to  n.mi.) 

SHIP(5) 

Ship  heading  (deg  to  rad) 

SM 

Blanking  time  used  to  calculate  SMODE(J,l)  (ps) 

SMODE(J.l) 

Blanking  range  for  mode  J (n.mi.) 

SMODE(J,2) 

Rain-clutter  improvement  factor  for  mode  J 

SUBC(J) 

Sea-clutter  improvement  factor  for  mode  J 

TAU(J) 

Compressed- pulse  length  for  mode  J,  or  tc  (s) 

TWOPI 

Two  times  3.1415926536,  or  ?ir 

Subroutine  MERDET 

Subroutine  MERDET  is  called  once  at  the  end  of  each  radar  scan  for  each  radar  mode 
after  all  the  detections  for  each  target  have  been  made.  The  purpose  of  this  routine  is  to 
produce  the  centroided  detections  when  several  targets  are  close  to  one  another,  a condition 
denoted  for  each  target  I by  MER(l)  = -1  ('Fable  4). 

Let  N .■  be  the  number  of  detections  of  the  ith  target,  AtJ  be  the  initial  azimuth,  FtJ  be 
the  final  azimuth,  and  R ^ be  the  range  of  the  yth  detection  of  the  ith  target.  The  procedure 
for  producing  the  centroided  detections  is  to  order  (in  initial  azimuths  A(y)  all  M detections 
of  targets  that  are  close  to  one  another,  that  is,  all  targets  for  which  MER(I)  = -1.  Let  the 
array  of  ordered  initial  azimuths  be  Alt  and  let  the  corresponding  final  azimuths  and  ranges 
be  Fk  and  Rh  respectively.  Thus 

Aj  < A2  < /t3  ^ ...  <Aa/-j  (12) 

A detection  is  inhibited  if  it  is  close  to  another  which  has  a smaller  initial  azimuth. 
Specifically,  detection  i is  inhibited  by  target,  detection  j,  which  has  previously  been 
accepted,  if 


21 


DAVIS  AND  TRUNK 


* 


i 


Aj<Ah 
\Rj~Ri\<AR, 

and 

Fj  < Fj  + A A,  (15a) 

or,  alternately,  detection  i is  inhibited  by  detection  k,  which  has  previously  been  inhibited, 
if 

Ak<Ai,  (13b) 

| Ri-Rk\<AR,  (14b) 

and 

Fi<Fk,  (15b) 

where  AR  is  the  range-resolution-cell  dimension  and  AA  is  the  azimuth  separation  based 
on  the  pulse  detection  separation  specified  at  input,  which  should  be  approximately  the 
3-dB  beam  width.  If  a detection  is  not  inhibited,  it  is  accepted. 

Thus  a detection  can  easily  be  accepted  or  inhibited  by  examining  sequentially  the 
ordered  detections.  The  first  detection  is  always  accepted,  and  the  yth  detection  is  accepted 
if  it  is  not  close  to  any  of  the  previously  accepted  or  inhibited  detections,  where  closeness 
is  defined  either  by  Eqs.  14a  and  15a  or  by  Eqs.  14b  and  15b.  The  estimate  of  the  azimuth 
for  an  accepted  target  detection  is 


(13a) 

(14a) 


Ak=(Ak+Fk)/ 2. 


(16) 


Table  4 — MERDET  Variables 


Fortran  Variable 

Description 

A 

Initial  azimuth  of  the  yth  detection  of  the  ith  target  ( A A in 

Eq.  15) 

ACONZ 

Azimuth  interval  used  to  inhibit  detection  (AA  in  Eq.  15) 

AZ(I,2J-1) 

Initial  azimuth  of  the  yth  detection  of  the  ith  target  which  has 
a target  close  by  (Ak  in  Eq.  16) 

AZ(I,2J) 

Final  azimuth  of  the  yth  detection  of  the  ith  target  which  has  a 
target  close  by  (Fk  in  Eq.  16) 

AZ(I,J) 

Azimuth  of  the  yth  detection  of  the  ith  target  (A  in  Eq.  16) 

11 

Number  of  detections 

K 

Number  of  ordered  detections  (M  in  Eq.  12) 

KC 

Counter  used  for  ordering 

KDET(I) 

Detection  index  of  the  ith  ordered  azimuth 

KDTT(I) 

Detection  index  of  the  ith  ordered  inhibited  azimuth 

Tab  It*  con  limit's. 
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Table  4 (Concluded)  — MERDET  Variables 


Fortran  Variable 

Description 

. - - ....  . . , .... 

KK 

Number  of  accepted  detections 

KTAR(I) 

Target  index  of  the  ith  ordered  azimuth 

KTRR(I) 

Target  index  of  the  ith  ordered  inhibited  azimuth 

MER(I) 

Indicator  of  interfering  target  problems. 

0 = no  interfering  targets 
- 1 = interfering  target  but  target  detected 
-2  = interfering  targets  and  target  not  detected 

N 

Number  of  targets 

NDET(I,J) 

Number  of  detections  of  the  ith  target,  or  Ni 

RANGE(I.J) 

Range  of  the  yth  detection  of  the  ith  target 

RES 

Range-cell  dimension  (AR  in  Eqs.  14a  and  14b) 

SNDET(I.J) 

Signal  amplitude  of  theyth  detection  of  the  ith  target 

Subroutine  MWDET 

Subroutine  MWDET  is  called  for  every  target  on  each  radar  scan  for  each  radar  mode. 
The  purpose  of  the  routine  is  to  declare  target  detections  by  generating  pulse- to-pulse  video 
returns  as  the  beam  sweeps  over  the  target,  integrating  the  returned  signal,  and  comparing  it 
to  an  adaptive  threshold  which  is  generated  from  the  surrounding  reference  cells.  Detections 
can  be  made  in  either  adjacent  range  cell  in  addition  to  the  range  cell  in  which  the  target  is 
present.  Thus  in  theory  a 2D  radar  can  report  three  detections  of  a single  target. 

The  routine  initially  tests  whether  appropriate  input  parameters  (Table  5)  are  less  than 
preassigned  values:  the  number  of  pulses  integrated  M is  less  than  100,  the  number  of 
reference  cells  Nt{  on  each  side  of  the  test  cell  is  less  than  ten,  and  the  absolute  value  of 
clutter  correlation  coefficient  p is  less  than  1.0.  If  any  parameter  exceeds  its  limit,  an  error 
message  is  printed  and  the  program  stops. 

Next,  M times  the  ratio  of  signal  to  clutter- plus- noise  is  compared  to  2.  If  the  value  is 
less  than  2,  the  target  is  declared  not  detected,  the  number  of  detections  of  target  NTAR, 
the  target  of  interest,  by  theyth  mode  NDET(NTAR.J)  is  set  to  0,  and  control  is  returned  to 
the  calling  routine.  Otherwise  the  detailed  simulation  is  begun  by  finding  all  the  targets 
which  lie  within  the  reference  cells  of  target  NTAR.  The  list  of  interfering  targets  INF  is 
initialized  by  setting  INF(l)  = NTAR,  and  the  corresponding  signal  energy  SNREF(l)  is  set 
equal  to  the  target  energy  S.  The  remaining  interfering  targets  are  found  by  calling  sub- 
routine RESOL,  which  calculates  the  number  of  interfering  targets  Nl,  lists  the  index  of  the 
interfering  targets  in  the  array  INF,  and  lists  the  corresponding  signal  energies  in  SNREF. 

As  the  radar  beam  sweeps  over  the  target,  the  returned  signal  will  be  modulated  by  the 
antenna  pattern.  The  azimuth  position  of  the  pulse  closest  to  the  target  is 

0 = A + (U  - O.5)A0,  (17) 

where  A is  the  azimuth  of  the  target,  U is  a random  number  uniformly  distributed  between 
0 and  1,  and  AO  is  the  antenna  azimuth  movement  between  transmitted  pulses.  To  simplify 
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the  location  of  the  interfering  target  and  have  the  storage  required  to  integrate  up  to  100 
pulses,  401  pulses  (corresponding  to  different  azimuth  positions)  are  saved  for  each  range 
cell,  and  the  201st  location  corresponds  to  0.  The  azimuth  of  pulse  0 is 

0q  = 0 - 201  AO,  (18) 

Furthermore,  since  only  M pulses  are  within  the  3-dB  azimuth  beamwidth,  all  401  pulses 
need  not  be  generated  when  M < 100.  Specifically,  for  the  target  of  interest,  the  signal  will 
be  assumed  to  occupy  the  center  2 M pulses.  Also,  to  allow  for  the  buildup  and  decay  of  the 
moving-window  detector,  M noise  samples  are  generated  on  each  side  of  the  signal  return. 
Thus,  the  first  pulse  generated  is 

NS  = 201  - 2M,  (19) 

and  the  final  pulse  generated  is 

NF  = 201  + 2M.  (20) 

Also,  the  video  return  is  generated  only  in  the  reference  cells  surrounding  the  target. 
Thus,  to  save  computer  storage,  only  25  range  cells  are  saved  and  the  target  is  always  placed 
in  the  13th  range  cell.  Consequently  the  range  to  the  start  of  the  first  range  cell  is 

Rs  = MHKrs-  13),  (21) 

where  A R is  the  range-cell  dimension  and  KRS  is  the  integer  defined  by 

Khs  = integer  (R/AR),  (22) 

in  which  R is  the  target  range. 

The  first  step  in  generating  the  radar  video  return  is  to  generate  the  signal  (target) 
return  in  the  appropriate  range  cells.  Specifically,  the  index  of  the  first  range  cell  is 

Nf~U-Nr,  (23) 

and  the  index  of  the  last  range  cell  is 

Nl  = 15  + Nr.  (24) 

Thus,  if  Nr  = 10,  signal  must  be  placed  in  all  25  range  cells.  The  signal  return  for  the  ith 
pulse  and  the  ;th  range  cell  S,.  and  an  indicator  of  signal  in  the  jth  range  cell  I{j)  are  initially 
set  to  0 for  all  i and  j.  Then  the  signal  return  from  each  of  the  NI  interfering  targets  lying 
within  the  reference  cells  is  generated.  For  the  feth  target  this  is  accomplished  by  first  gen- 
erating the  appropriate  fluctuating  amplitudes  Fi  tor  the  ith  pulse.  For  Swerling  case  NSW, 
F,  is  given  by  the  following  equations,  in  which  the  l/,,  i = 1, ....  M,  are  independent  random 
numbers  uniformly  distributed  between  0 and  1.  For  NSW  = 0 (nonfluctuating  target) 
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For  NSW  = 1 (scan-to-scan  fluctuations,  Rayleigh  density) 

F,  = - log  t/j , f = 1, ....  Af.  (26) 

For  NSW  = 2 (pulse- to-pulse  fluctuations,  Rayleigh  density) 

Fj  = - log  Uj,  i=  1, M.  (27) 

For  NSW  = 3 (scan-to-scan  fluctuations,  chi-square  density) 

F,  = - 0.5(log  Uj  + log  U2),  i = 1, ....  M.  (28) 

For  NSW  = 4 (pulse- to-pulse  fluctuations,  chi-square  density) 

Fj  ■=  - 0.5(log  Ui  + log  (/jvf  + j),  i = 1,  ....  M.  (29) 

The  signal  is  next  placed  in  the  appropriate  range  cel!  and  the  adjacent  range  cells  by 
reducing  the  returned  signal  by  a [(sin  x)/x]2  pulse  shape  and  a [(sin  x)/x]4  antenna  pat- 
tern. The  return  signal  from  the  kth  target  is  centered  in  range  cell  KR : 

Kr  - integer  [(Rk  - RS)/AR] , (30) 

where  Rk  is  the  range  of  the  fcth  target.  The  signal-return  reduction  F in  the  adjacent  range 
cell 


Kt  = Kr  + /,  /=- 1,0,1, 

is  given  by  (because  of  the  (sin  x)/x  pulse  shape) 

F - [(sin  Fd  )/Frf ] 2, 


(31) 


(32) 


where 


Fd  = 2.7832(Fjj  - RT)/AR,  (33) 

in  which 

Rt  = (Kt  + 0.5)AF  + Rs.  (34) 

At  this  time  the  indicator  I(KT)  is  set  equal  to  1. 

The  closest  pulse  (in  azimuth)  to  the  feth  interfering  target  is 

NC  = integer  |(Afe  - 0)/M]  + 201,  (35) 

where  Ak  is  the  azimuth  of  the  kth  target.  Thus,  of  the  pulses  to  be  generated  (NS  to  NF), 
the  feth  target  contributes  signal  to  the  pulses  from 

NNS  = max  [NS,  NC  - M\  (36) 
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to 


NNF  = min  {NF,  NO  + M\ . 


(37) 


Therefore,  for  the  ith  pulse,  the  signal  reduction  G due  to  the  (sin  x)!x  antenna  pattern  is 


G = l (sin  Gd  )IG(,  ] 4 , 


(38) 


where 


Gd  = 2.7832(0O  + iAO  -Ah)/03M,  (39) 

in  wiiich  03dB  is  the  antenna  3-dB  azimuth  heamwidth.  Finally,  the  signal  (normalized  by 
the  clutter  energy  C and  noise  energy  N)  in  the  K/  th  range  cell  (for  the  ith  pulse)  is 

S,  Kr  (new)  = Sl  Kr  (old)  + GFFtPkl(C  + N),  (40) 

where  is  the  signal  energy  of  the  feth  interfering  target. 

The  calculation  indicated  by  Eqs.  38  through  40  is  first  repeated  for  all  pulses  spe- 
cified by  Eqs.  36  and  37.  Then  the  calculation  indicated  by  Eqs.  31  through  40  is  repeated 
for  the  adjacent  range  cells  indicated  in  Eq.  31.  Finally  the  calculation  indicated  by  Eqs.  26 
through  40  is  repeated  for  all  Ml  targets  in  the  reference  cells.  Thus  at  the  end  of  all  of  these 
repetitions  St  ; is  the  signal  energy  in  the  ith  pulse  and  yth  range  cell  due  to  all  the  targets  in 
the  reference  cells. 

Next  Rayleigh  noise  (and  possibly  correlated  clutter)  is  added  to  the  signal  to  produce 
the  total  video  return  xiy.  The  video  return  is  generated  (because  of  computer-speed  con- 
siderations) for  three  distinct  eases:  clutter  insignificant  and  no  signal  present  in  the  range 
cell,  clutter  insignificant  and  signal  energy  N-  present  in  the  range  cell,  and  clutter  signifi- 
cant. The  significance  of  clutter  is  indicated  by  the  product  of  clutter  and  the  number  of 
pulses  integrated  CM  being  greater  than  N,  and  signal  present  in  the  ,/th  cell  is  indicated  by 
/(/)  = 1.  Thus,  the  ith  return  in  the  /th  cell  xtj  is  given  as  follows.  For  clutter  insignificant 
(CM  < N)  and  no  signal  in  the  ;th  cell  (l(j)  = 0) 

Xjj  = (-  2 log  D,)1'2,  i=l M,  (41) 

where  the  V ( are  independent  uniform  random  numbers  between  0 and  1 different  for  each 
j.  For  clutter  insignificant  (CM  < N ) and  signal  in  the/th  cell  (/(/)  = 1) 

x,j  = ( l a;  cos  <p,  + (2£>(J)I/2 1 2 + («,  sin  0,)2}1/2,  (42) 


where 

2 log  f/,)1/2 

and 


<t>,  m 2 nU,.M 


(43) 


(44) 
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For  clutter  significant  (CM  > N) 

*ij  = {[CX,  + a,  cos  4>i  + (2Si7)1/2  ] 2 + (C7,  + a,  sin  0,)2} , (45) 

where  the  Rayleigh- noise  components  a,  cos  0,  and  a,-  sin  0,  are  given  by 

«i  = N'(-  2 log  Ui+M  )1/2  (46) 

and 

0,  = 2irt/|+3M,  (47) 

with 

AT-  [N/(C+A0]1/2,  (48) 


the  clutter  is  given  by 


CX,  = pCX.-.j  + (1  - p2)1/2a!  sin  0|  (49) 

and 

cy,.  = pcy,_i  + (1  - p2)1/2a!  cos  0;,  (50) 

in  which 

a,'  = C'(-  2 log  l/,)1/2  (51) 

and 

0,'  = 2*Ui+2M,  (52) 

with 

C'=  [C/(C  + JV)]1/2t  (53) 

and  the  initial  clutter  values  are 

CX0  = C'a0  cos  0Q  (54) 

and 

C y0  = C'a0  sin  00 . (55) 

At  this  point  all  the  data  pulses  xtj-  have  been  generated,  and  the  simulation  of  the  de- 
tector can  begin.  First,  a decision  is  made  whether  to  use  linear  video  (Fortran  variable 
XLOG  = 0.0)  or  log  video  (XLOG  = 1.0),  according  to  the  value  of  XLOG  specified  at  input. 
Next  the  moving- window  detector  is  initiated  by  integrating  the  first  Af  pulses: 
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MS 

Zj=  ^ Xjj , j — Nf , , 

i -NS 

where 


(56) 


MS  = NS  + M - 1. 


(57) 


For  each  of  the  remaining  pulses  (i  = MS  + 1 to  NF ) the  moving  window  for  each  cell 
is  updated : 


Zj  - Zj  + Xjj  - X'_Mj-. 


(58) 


The  detection  threshold  T;  for  theyth  range  cell  (/'  = 12,  13,  and  14)  uses  either  all  the 
reference  cells,  the  half  with  the  minimum  mean  value,  or  the  half  with  the  maximum  mean 
value.  Furthermore  the  threshold  may  be  based  on  either  one  parameter  (the  mean)  or  two 
parameters  (the  mean  and  the  variance).  Thus  the  mean  is 


1 Nr 

Zi=  WR  £ (Z/>i+«  + ZM_)). 


i-  1 


(59a) 


N« 


Z>~  NR  £ 


i-i 


(59b) 


or 


and 


Z2  = _L 

J 2 N, 


1 

Nr 

Nr 

L 

i-1 

(59c) 

Nr 

L 

(Zj+l+i  * zf-i-i ). 

(60a) 

i«  1 

Nr 

1 

Nr 

L Zf*  1 + i ’ 

I*  1 

(60b) 

Nr 

1 

Nr 

L ZU-r 
/- 1 

(60c) 
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The  standard  deviation  is 


Oj=  [Zf  -(Zj)2\112,  (61) 

where  Zj  and  Zj  use  the  same  reference  cells.  The  two-parameter  threshold  for  either  linear 
or  log  video  is 


Tj  = Zj  + NaOj,  (62) 

where  Na  is  the  number  of  standard  deviations  specified  at  input.  (Appropriate  values  of 
Na  are  given  in  Appendix  A.)  The  two-parameter  threshold  for  log  video  has  dubious  mean- 
ing, since  the  threshold  can  be  dominated  by  the  shape  of  the  density  function  near  zero. 
The  one- parameter  threshold  is 


Tj  = NaZj  (63) 

for  linear  video  and 

Tj  = N0+2j  (64) 


for  log  video. 

For  each  range  cell;  the  first  (FC;)  and  last  (LCj)  azimuth  crossings  of  the  threshold 
Tj  are  saved.  These  values  are  calculated  under  the  restrictions  that  there  is  at  least  one  Z.  < 
Tj  at  an  azimuth  smaller  than  LCj  and  that  there  is  no  azimuth  interval  larger  than  A A (the 
azimuth  separation  based  on  the  pulse  detection  separation  specified  at  input)  between  LCj 
and  FCj  for  which  all  Zj  < Tj.  Furthermore  the  range  cell  of  the  initial  detection  (smallest 
azimuth)  is  Jj , of  the  second  smallest  is  J2,  and  of  the  last  is  «/3. 

The  action  taken  by  the  program  in  providing  centroided  detections  from  the  N( 
detections  of  the  ith  target  depends  on  whether  any  of  the  interfering  targets  are  within 
three  range  cells  of  the  test  cell,  a condition  which  can  cause  merging  problems  with  other 
targets. 

If  there  are  no  merging  problems  for  target  NTAR,  then  MER(NTAR)  = 0 and  the  Jj 
detection  is  a valid  detection.  The  J2  detection  is  valid  if  either 

Ul-J2|>l  (65) 


or 


LCj2>LCj1  + a a. 

(66) 

The  </3  detection  is  valid  if  J2  is  not  valid  and 

(67) 

and 

LCj3  >LCj2. 

(68) 
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If  J'2  is  valid,  either  Eq  . 67  or 

LCj , > LCjj  + AA  (69) 

must  be  true  and  either 

|J2-J3|>1  (70) 

or 

LCj3>  LCj2+ AA  (71) 

must  be  true  for  all  three  detections  to  be  valid.  For  the  feth  valid  detection  of  the  ith  target 
(the  target  of  interest  NTAR)  the  range  is 

Rik=Rs+(Jk+0.5)AR,  (72) 

the  azimuth  is 

Aik=Wjk  +FCJk  -03dB)/2,  (73) 

and  the  signal  energy  is 

^ik  ~ max  (ZjJTjJ,  (74) 

where  fe  equals  1 if  there  is  only  one  valid  detection  and  takes  on  a maximum  value  of  3. 

On  the  other  hand,  if  there  are  merging  problems  (MER(I)  = -1),  a decision  on  valid 
detections  can  be  made  only  by  considering  all  the  detections  from  all  targets.  This  decision 
is  made  by  calling  subroutine  MERDET  at  the  end  of  the  radar  scan.  The  values  saved  for 
this  decision  are  the  ranges  given  by  Eq.  72  and  the  initial  and  final  threshold  crossings 
given  by 

^i,2fe-l  = FCJk  ~ °3dB/2  (75a) 

and 

Ait2k  ~ LCjh  - 03dB/2.  (75b) 


Table  5 — MVVDET  Variables 


Fortran  Variable 

Description 

A 

Rayleigh  random  variable  (a,  in  Eq.  43) 

AA 

Azimuth  of  the  feth  interfering  target  ( Ah  in  Eqs.  35  and  39) 

ACONZ 

Azimuth  separation  for  declaring  two  detections  ( A A in 

Eq. 66) 

AOLDX 

Gaussian -clutter  random  variable  {CX,  in  Eq.  49) 
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Table  5 (Continued)  — MWDET  Variables 


Table  continues. 
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Table  5 (Continued)  — MWDET  Variables 


Fortran  Variable 

Description 

KRS 

Range  cell  in  which  target  NTAR  lies  (KRS  in  Eq.  22) 

KT 

Range  cell  adjacent  to  the  target  cell  ( KT  in  Eq.  31) 

M 

Number  of  pulses  generated  M 

MER(l) 

Indicator  of  the  interfering- target  problem  (target  within  three 
range  cells  and  2.4  azimuth  beamwidths  of  the  ith  target)  for 
the  ith  target 

MODEL(l) 

Swerling  fluctuation  index  for  the  ith  target  (NSW  in  text  pre- 
ceding Eq.  25) 

MS 

Last  pulse  for  initiation  of  the  moving  window  (MS  in  Eq.  57) 

M2 

Two  times  the  number  of  pulses  generated 

M3 

Three  times  the  number  of  Dulses  generated 

M4 

Four  times  the  number  of  pulses  generated 

N 

Number  of  targets 

NC 

Closest  pulse  in  azimuth  to  the  feth  interfering  target  (NC  in 

Eq.  35) 

NCONZ 

Pulse  separation  for  declaring  two  detections 

NDET(I) 

Number  of  detections  of  the  ith  target 

NF 

Last  pulse  simulated  (NF  in  Eq.  20) 

N1 

Number  of  targets  in  the  reference  cells  (Nl  in  text  preceding 

Eq.  25) 

NNF 

Last  signal  pulse  for  the  feth  interfering  target  (NNF  in  Eq.  37) 

NNS 

First  signal  pulse  for  the  feth  interfering  target  (NNS  in  Eq.  36) 

NREF 

Number  of  reference  cells  on  each  side  of  the  test  cell  (N in 

Eqs.  59  and  60) 

NREF2 

Two  times  NREF  (2 Nr  in  Eqs.  59a  and  60a) 

NRF 

Last  range  cell  used  (N^  in  Eq.  24) 

NRS 

First  range  cell  used  (Np  in  Eq.  23) 

NS 

First  pulse  simulated  (NS  in  Eq.  19) 

NSW 

Index  of  Swerling  fluctuation  model  (NSW  in  text  preceding 

Eq.  25) 

NTAR 

Target  of  interest  NTAR 

N3DB 

Number  of  pulses  integrated  M 

P 

Function  of  the  clutter  correlation  ((1  -p2)1^2  in  Eqs.  49 
and  50) 

PARM 

Parameter  to  denote  whether  the  mean  (PARM  = 1)  or  the 
mean  and  variance  (PARM  = 2)  should  be  used  to  calculate 
the  threshold 

R(I) 

Uniform  random  numbers  (Ui  in  Eqs.  27,  29,  41,  and  43) 

RANGE(I.J) 

Range  of  the  jth  detection  of  the  ith  target  (RtJ  in  Eq.  72) 

RES 

Range-cell  dimension  (A R in  Eq.  21) 

RR 

Range  of  the  feth  interfering  target  (Rh  in  Eq.  30) 

RS 

Range  of  the  first  of  25  range  cells  ( Rs  in  Eq.  21) 

RTEMP 

Range  to  the  center  of  the  KT th  range  cell  ( Rr  in  Eq.  34) 

Table  continues 
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Table  5 (Concluded)  - MWDET  Variables 


Fortran  Variable 

Description 

S 

Signal  energy  S 

SM 

Normalized  signal  energy  including  the  effects  of  the  pulse 
shape 

SN(J) 

Maximum  normalized  signal  amplitude  in  the  ;th  range  cell 

SNDET(l.J) 

Maximum  signal  amplitude  of  the  jth  detection  of  the  rth  target 
(Sy  in  Eq.  74) 

SNINT 

Maximum  integrated  signal-to-noise  ratio 

SNREF(K) 

Signal  energy  of  the  feth  interfering  target  ( Pk  in  Eq.  40) 

SS(I,J) 

Signal  energy  of  the  ith  pulse  in  the  ;th  range  cell  (Si;  in  Eqs. 

42  and  45) 

SUM 

Integrated  sum  of  the  jth  range  cell  (Z.  in  Eq.  56) 

Indicates  the  reference  cells  to  be  used 

THRSH 

TH3DB 

The  antenna  3-dB  azimuth  beamwidth  (^3^3  *n  Eos-  39  and  73) 

TIME(I) 

Detection  time  of  the  ith  target 

TRGPOS(I,4) 

Range  of  the  ith  target  ( Rk  in  Eq.  30) 

TRGPOS(I,5) 

Azimuth  of  the  ith  target  (Ak  in  Eq.  35) 

TWOPI 

Two  times  3.1415926536,  or  27t 

U 

Mean  value  of  the  reference  cells  (Zy  in  Eq.  59a) 

ULOW 

Mean  value  of  the  lower  half  of  the  reference  cells  (Z;  in 

Eq.  59c) 

UUP 

Mean  value  of  upper  half  of  the  reference  cells  (Z;  in  Eq.  59b) 

X(I,J) 

Video  return  of  the  ith  pulse  in  the;th  cell  (x,y  in  Eqs.  41,  42, 
and  43) 

XFIRST(J) 

First  threshold  crossing  in  the  ;th  cell  (FCj  in  text  after  Eq.  64) 

XLAST(J) 

Last  threshold  crossing  in  the  ;th  cell  ( LCj  in  text  after  Eq.  64) 

XLOG 

Denotes  the  type  of  video  to  be  used  (linear  video  if  XLOG  = 0 
and  log  video  if  XLOG  =1)  

XMS 

Mean  square  of  the  reference  cells  (Zj  in  Eq.  60a) 

XMSLOW 

Mean  square  of  lower  half  of  the  reference  cells  (Z;  in  Eq.  60c) 
Mean  square  of  upper  half  of  the  reference  cells  (Z?  in  Eq.  60b) 

XMSUP 

Subroutine  STAB2 

Subroutine  STAB2  generates  a new  azimuth  position  for  each  target  detection,  because 
the  radar  is  unstabilized.  The  routine  is  initialized  by  calling  the  entry  point  STBINT.  The 
initialization  section  first  reads  four  input  parameters  with  a 4F8.2  format  (Table  6): 

RMAX  — maximum  roll  angle  (deg), 

PMAX  — maximum  pitch  angle  (deg), 

RPER  — roll  period  (s), 

PPER  — pitch  period  (s). 

Next,  the  angles  are  converted  to  radians,  and  the  random-number  generator  is  used  to 
generate  uniform  phase  angles  for  the  roll  and  pitch  cycles. 
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The  modified  azimuth  positions  are  generated  by  calling  STAB2  once  per  scan  from 
the  executive  routine  (after  all  detections  have  been  obtained).  The  roll  R and  the  pitch  P 
angles  at  time  t are 


R ~ Rm  sin  (2itt/Tn  + <j)ji ) (76) 

and 

P = Pm  sin  (27 rf/7>  + 4>P),  (77) 

where  Rm  and  Pm  are  the  maximum  roll  and  pitch  angles,  Tr  and  Tp  are  the  corresponding 
periods,  and  <t>R  and  <t>P  are  uniform  phase  angles  between  0 and  277.  The  measured  azimuth 
position  am  (in  the  deck  plane)  is  [3] 


am  = tan'1 


sin  a.  cos  R + (cos  a sin  P + tan  e cos  P)  sin  R 


cos  a cos  P - tan  e sin  P 


+ e. 


(78) 


where  a and  e are  the  true  azimuth  (re  ship  heading)  and  elevation  angles  of  the  target  and  e 
is  the  previously  calculated  azimuth  error. 

Table  6 - STAB2  Variables 


Fortran  Variable 

Description 

A 

Azimuth  of  the  target  in  the  deck  plane  with  zero  measured  error 

AA 

Azimuth  of  the  target  (a  in  Eq.  78) 

ATKMP 

Azimuth  measurement  (between  n and  3tt) 

AZ 

Azimuth  measurement  (between  0 and  2tt)  ( am  in  Eq.  78) 

CP 

Cosine  of  the  pitch  angle 

CR 

Cosine  of  the  roll  angle 

K 

Number  of  detections  per  target 

NDET(I) 

Number  of  detections  of  the  ith  target 

NTARG 

Number  of  targets 

PFAC 

Frequency  of  the  pitch  cycle 

PHASE(l) 

Phase  angle  of  the  roll  ( <t>H  in  Eq.  76) 

PHASE(2) 

Phase  angle  of  the  pitch  (<£/.  in  Eq.  77) 

PI 

3.1415926536,  or  ;r 

PITCH 

Pitch  angle  (P  in  Eqs.  77  and  78) 

PMAX 

Maximum  pitch  angle  (Pm  in  Eq.  77)  ' 

PPER 

Period  of  pitch  cycle  ( T/>  in  Eq.  77) 

RADIAN 

57.29578  , the  number  of  degrees  in  a radian,  or  180/rr 

RFAC 

Frequency  of  the  roll  cycle 

RMAX 

Maximum  roll  angle  (Rm  in  Eq.  76) 

ROLL 

Roll  angle  (R  in  Eqs.  76  and  78) 

RPER 

Period  of  the  roll  angle  (TH  in  Eq.  76) 

SHIP(5) 

Ship  heading 

SP 

Sine  of  the  pitch  angle 

SR 

Sine  of  the  roll  angle 

TE 

Tangent  of  the  target  elevation 

TIME 

Time  of  detection 

TRGPOS(I,5) 

Azimuth  of  the  target 

TRGP0S(I,6) 

Elevation  of  the  target 

TWOPI 

Two  times  3.1415926536,  or  2n 

X 

Trigonometric  function  of  the  angles 

Y 

Trigonometric  function  of  the  angles 
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Subroutine  VRCLT2 

Subroutine  VRCLT2  generates  scan-to-scan  independent  clutter  points  in  specified 
areas  and  is  called  once  per  scan  by  the  executive  routine  after  FXCLT2  has  been  called. 

The  routine  is  initialized  by  calling  the  entry  point  VCINIT.  The  initialization  section  first 
reads  two  parameters  with  a 218  format  (Table  7): 

ISET  — initialization  number  for  the  random- number  generator, 

NREG  — number  of  clutter  regions. 

Next  for  each  clutter  region  (a  maximum  of  five  regions)  five  parameters  are  specified 
according  to  a 5F8.2  format: 

FN  — average  number  of  detections  in  the  clutter  region, 

RS  — initial  range  of  the  clutter  region  (kft), 

RF  — final  range  of  the  clutter  region  (kft), 

THS  — initial  azimuth  of  the  clutter  region  (deg), 

THF  — final  azimuth  of  the  clutter  region  (deg). 

The  input  parameters  are  converted  to  nautical  miles  and  radians  for  internal  use,  and  the 
inverse  of  the  density  per  unit  azimuth  F,  is  generated  by 

F,  = (0f  -es)INit  (79) 

where  0S  and  0F  are  the  initial  and  final  azimuth  boundaries  of  the  i'th  clutter  region  and 
Nj  is  the  average  number  of  detections  in  the  ith  region. 

The  detected  clutter  points  are  generated  by  calling  VRCLT2  once  per  scan.  The  clut- 
ter regions  are  processed  one  at  a time.  For  each  clutter  region  the  azimuth  interval  A,- 
between  detections  is  generated  by  A,-  = >-  Fi  log  Uit  where  Ui  is  a uniformly  distributed 
random  number.  If 

i 

^ A j^(Bp-Og),  (80) 

1 

the  new  detection  is  accepted.  Its  measured  azimuth  and  range  are 

e = os  + £ a,  (8i) 

l 

and 

R = (K  + 0.5  )AR,  (82) 

where  A R is  the  range-cell  dimension  and 

K “ integer  {[Rs  ♦ (RF  - RS)V,]/AR},  (83) 
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in  which  Rs  and  RF  are  the  initial  and  final  range  boundaries  of  the  ith  clutter  region  and 
Vj  is  a uniformly  distributed  random  number.  The  associated  detection  time  is 

T,  = T0  + (AT)0/2jt,  (84) 

where  T0  is  the  time  of  the  zero- bearing  crossing  and  AT  is  the  scan  period.  The  roll  and 
pitch  angles  at  time  t are 

roll  = Rm  sin  (2 nt/TR  + tfrR ) (85) 

and 

pitch  = Pm  sin  (2iri/Tp  + <t>P),  (86) 

where  Rm  and  Pm  are  the  maximum  roll  and  pitch  angles,  TR  and  TP  are  the  corresponding 
periods,  and  <j>R  and  <pP  are  uniform  phase  angles  between  0 and  2tt. 

On  the  other  hand,  if 

£ A j>{dF~es),  (87) 

then  the  new  detection  is  out  of  the  present  clutter  region  and  the  next  clutter  region  is 
considered. 


Table  7 - VRCLT2  Variables 


Fortran  Variable 

Description 

A 

Azimuth  of  the  detection  (0  in  Eq.  81) 

AZOUT 

Azimuth  of  the  detection  (output)  ( 0 in  Eq.  81) 

ELOUT 

Elevation  of  detection  E (equals  zero) 

FLAM 

Inverse  azimuth  density  of  the  clutter  points  in  the  ith  clutter  region 

(F,  in  Eq.  79) 

FN 

Average  number  of  detections  in  the  region  (IV,  in  Eq.  79) 

IC 

Number  of  fixed  clutter  points  detected 

IRAN 

Random-number  counter 

1SET 

Initialization  number  for  the  random-number  generator 

IV 

Total  number  of  clutter  detections  (fixed  plus  variable) 

K 

Range-cell  number  ( K in  Eqs.  82  and  83) 

NREG 

Number  of  regions  (maximum  of  five) 

PFAC 

Frequency  of  the  pitch  cycle 

PHASE(l) 

Phase  angle  of  the  roll  ( <pR  in  Eq.  85) 

PIJASE(2) 

Phase  angle  of  the  pitch  (0P  in  Eq.  86) 

PMAX 

Maximum  pitch  angle  (Pm  in  Eq.  86) 

PTOUT(I) 

Pitch  angle  at  the  time  of  the  ith  detection  (pitch  in  Eq.  86) 

Tabic  continue*. 
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Table  7 (Concluded)  — VRCLT2  Variables 


Fortran  Variable 

Description 

RADIAN 

57.29578°,  the  number  of  degrees  in  a radian,  or  180/ti 

RAN 

Array  of  random  numbers  l/jt  V,-,  and  W( 

RC(  19) 

Range-cel)  dimension  (AR  in  Eq.  82) 

RES 

Range-cell  dimension  (AR  in  Eq.  82) 

RF 

Final  range  of  the  clutter  region  ( Rp  in  Eq.  83) 

RFAC 

Frequency  of  the  roll  cycle 

RLOUT(I) 

Roll  angle  at  the  time  of  the  ith  detection  (roll  in  Eq.  85) 

RMAX 

Maximum  roll  angle  (Rm  in  Eq.  85) 

RMODE(l,5) 

Scan  period  (AT  in  Eq.  84) 

ROIJT(I) 

Range  of  the  ith  detection  (R  in  Eq.  82) 

RS 

Initial  range  of  the  clutter  region  (Rs  in  Eq.  83) 

SOUT(I) 

Power  of  the  ith  detection 

T 

Time  of  the  zero- bearing  crossing  (T0  in  Eq.  84) 

THF 

Final  azimuth  of  the  clutter  region  (0F  in  Eq.  79) 

THS 

Initial  azimuth  of  the  clutter  region  (0S  in  Eq.  79) 

TIMSCN 

Scan  period  (AT  in  Eq.  84) 

TIMZB 

Time  of  the  zero- bearing  crossing  (T0  in  Eq.  84) 

TOUT(I) 

Time  of  the  ith  detection 

TWOPI 

Two  times  3.1415926536,  or  2 n 

I 
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ROUTINES  EXCLUSIVE  TO  SURDET3D 
SURDET3D  Executive  Routine 

The  SURDET3I)  executive  routine  drives  the  detection  model  for  3D  surveillance 
radar  systems.  The  model  itself  consists  of  subroutines  that  perform  specialized  functions; 
the  SURDET3D  executive  routine  links  these  routines  together  (Fig.  3).  The  modular  con- 
struction of  the  model  facilitates  changes  and  additions  to  the  existing  version. 

The  SURDET3D  executive  routine  begins  by  setting  constants  and  conversion  factors 
for  use  by  the  model’s  subroutines.  It  then  reads  in  the  first  two  data  input  cards.  (The  next 
subsection  describes  user  input,  and  Table  8 describes  the  variables.)  The  first  card  contains 
the  output-control  parameter  ANSI,  which  determines  the  amount  of  printed  output  pro- 
duced. The  options  include  no  output  printed  (ANSI  = 0),  only  the  detection  output 
printed  (ANSI  = 1 ),  and  the  detailed  output  printed  (ANSI  = 2).  The  second  input  card 
contains  the  run  identification,  which  consists  of  an  integer  radar  identification  followed  by 
alphanumeric  descriptive  information  of  the  user’s  choice.  The  radar  identification  is  used  to 
label  the  output  files  for  subsequent  use  as  input  to  the  MERIT  tracking  program  [2] . 

SURDET3D  monitors  the  input  of  the  scenario  data  by  calling  a sequence  of  sub- 
routines. Subroutine  INITAL  reads  the  radar  data,  subroutine  TARGET  reads  the  parame- 
ters defining  the  targets  and  jammeTs,  and  subroutine  ENVIRN  reads  the  environmental 
data.  Subroutines  FCINIT  and  VCINIT  are  called  to  input  the  data  defining  the  fixed  clutter 
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F-g.  3 — Subroutine  linkage  by  the  SURDET3D  executive  routine.  The  solid  lines  indicate  pro- 
' gram  flow,  and  the  dashed  lines  indicate  subroutines  called.  The  names  in  parentheses  are  entry 

points.  The  loops  for  multiple  radar  modes  and  multiple  targets  are  not  indicated. 
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area  and  variable  clutter  areas  respectively.  Roll  and  pitch  characteristics  of  the  radar  plat- 
form are  read  by  subroutine  STBINT. 

The  game  time  by  which  the  radar  must  be  initialized,  RINIT,  is  next  read  as  an  input 
directly  by  the  executive  routine  and  then  modified  by  the  radar  scan  offset,  if  any.  Sub- 
routine MATCH  is  called  to  determine  the  time  each  target  first  comes  within  the  instru- 
mented range  of  the  radar.  The  minimum  time  among  this  set  of  times  from  MATCH  is  then 
further  decreased  by  30  s to  insure  clutter  samples  prior  to  detections,  and  the  earlier  of 
this  result  and  RINIT,  the  maximum  radar  initialization  time,  becomes  the  game  initializa- 
tion time.  The  end  of  the  game  is  set  to  coincide  with  the  last  target’s  reaching  the  end  of 
its  trajectory.  At  this  point  an  identification  record  for  the  detection  output  file  consisting 
of  the  radar  identification  and  the  radar  scan  rate  is  written  on  the  logical  unit  specified  by 
the  parameter  IOUT. 

The  recursive  portion  of  the  routine  begins  with  a call  to  subroutine  INIT3D,  which 
generates  an  initial  azimuth  beam  position  for  the  start  of  the  first  elevation  scan.  The  posi- 
tions of  all  targets  and  jammers  at  current  game  time  T are  determined  by  subroutine 
NEWPOS.  An  elevation  scan  is  then  performed  for  each  target  active  at  current  time  T as 
follows.  Given  an  active  target  /,  SURDET3D  steps  through  the  defined  radar  (elevation) 
modes.  For  each  mode  the  routine  first  determines  if  target  / is  within  instrumented  range, 
is  above  the  radar  horizon,  is  within  the  appropriate  angular  vertical  coverage  of  the  pencil 
beam  or  the  cosecant-squared  beam,  and  is  beyond  the  minimum  radar  range.  Unless  all 
of  these  conditions  are  met,  target  / is  dropped  from  further  consideration  by  this  (eleva- 
tion) mode.  The  routine  next  compares  the  elevation  angle  of  target  / to  the  current  mode’s 
(mode  J)  elevation  beam  center.  If  the  difference  exceeds  the  radar’s  vertical  3-dB  beam- 
width,  target  / is  dropped  from  further  consideration  by  this  mode.  Otherwise,  SURDET3I) 
proceeds  to  compute  the  signal  energy  and  the  noise  and  clutter  energies  for  target  / by 
calling  subroutines  SIGNAL  and  NOISE  respectively.  It  next  uses  subroutine  DET3D  to 
determine  any  detections  of  target  / by  the  current  radar  mode,  printing  a record  of  each 
detection  if  the  print-control  parameter  ANSI  indicates  that  detailed  output  is  desired. 

When  an  elevation  scan  has  been  completed  for  each  target  active  at  time  T,  subroutine 
MRDT3D  is  called  to  merge  adjacent  detections  and  estimate  the  range,  azimuth,  elevation, 
and  signal  power  of  the  centroided  detections.  The  centroided  detections  are  further 
modified  for  roll  and  pitch  of  the  radar  platform  by  subroutine  STAB3.  Detections  of  fixed 
and  of  variable  clutter  for  current  game  time  T are  determined  by  calls  ^subroutines 
FXCLT3  and  VRCLT3  respectively.  A report  of  centroided  target  detections  and  false 
alarms  (clutter  detections)  is  printed  if  ANSI  indicates  that  any  printed  output  is  desired.  A 
similar  output  scan  record  for  use  as  subsequent  input  to  the  MERIT  tracking  program  (2) 
is  written  on  the  logical  unit  specified  by  IQIJT. 

To  initiate  a new  radar  scan,  the  current  game  time  T,  which  represents  the  time  the 
radar  starts  its  current  scan  at  zero  azimuth,  is  increased  hy  the  radar  scan  period  (as  spec- 
ified for  radar  scan-mode  1).  If  the  new  game  time  does  not  exceed  ENDTIM,  the  time  at 
which  the  run  ends,  then  control  is  returned  to  the  lieginning  of  the  recursive  portion  of 
the  program.  Otherwise  a recycle  control  parameter  is  read  which  specifies  one  of  the 
following  four  options: 

• A new  scenario  is  to  be  read  to  initiate  a new  run,  in  which  case  program  control  is 
transferred  to  the  lieginning  of  the  executive  routine. 
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• Radar  parameters  from  the  run  just  completed  are  to  be  retained,  but  the  rest  of 
the  scenario  is  to  be  redefined  for  a new  run,  so  program  control  is  transferred  to  the  point 
where  subroutine  TARGET  is  called; 

• Radar  and  target  parameters  are  to  be  retained,  but  a new  environment  is  to  be 
specified  for  a new  run,  so  program  control  is  transferred  to  the  point  where  subroutine 
ENVIRN  is  called; 

• All  runs  are  completed. 


Table  8 - SURDET3D  Variables 


Fortran  Variable 

Description 

ACON 

Constant  used  in  sea-state  calculations  (to  be  described  in  the  sub- 
section on  subroutine  JAM  in  the  next  main  section) 

ALPHAD 

Grazing  angle  of  the  clutter  patch  (deg) 

AMBN 

Thermal  noise  energy  (J) 

ANSI 

Printed  output  control: 

0 = no  output  printed 

1 = detection  output  only  printed 

2 *=  detailed  output  printed 

AZ(I,K) 

Azimuth  of  the  feth  centroided  detection  of  target  / 

AZINIT 

Azimuth  beam  position  at  the  start  of  the  elevation  scan 

AZOUT(L) 

Azimuth  of  the  1th  clutter  detection 

AZ3(I,K,J) 

Azimuth  of  the  feth  detection  of  target  1 by  mode  J 

BETA 

Constant  used  in  sea-state  calculations  (described  in  the  subsec- 
tion on  subroutine  JAM) 

BHD  EG 

Azimuth  of  target  / in  degrees  for  printing 

BUF 

Scan-output-ID  array  written  on  logical  unit  lOUT 

BUF(l) 

Scan  number 

BUF(2) 

Start  time  of  the  present  scan 

BUF(3) 

Number  of  detections  (including  false  alarms) 

BUF(4) 

Radar  ID 

BUF(5) 

Ship’s  heading  (rad) 

BUF(6) 

Total  number  of  targets 

BUFA 

Detection  history  array  written  on  logical  unit  IOUT  for  each 
target  detection  or  false  alarm  K 

BUFA(1,K) 

Target  number  or  clutter  detection  number  of  the  feth  detec- 
tion 

BUFA(2,K) 

Range  of  the  feth  detection  (n.mi.) 

BUFA(3,K) 

Azimuth  of  the  feth  detection  (rad) 

BUFA(4,K) 

Elevation  of  the  feth  detection  (rad) 

BUFA(6,K) 

Time  of  the  feth  detection  (s) 

BUFA(6,K) 

Signal  energy  of  the  feth  detection  (dB) 

BUFA(7,K) 

Roll  angle  of  the  feth  detection  (rad) 

BUFA(8,K) 

Pitch  angle  of  the  feth  detection  (rad) 

Table  continues. 
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Table  8 (Continued)  — SURDET3D  Variables 


Fortran  Variable 

Description 

BUFB 

Target  true-position  array  written  on  logical  unit  IOUT  for  each 
defined  target 

BUFB(1,I) 

Target  number  (/) 

BUFB(2,I) 

Slant  range  to  the  true  target-/  position  (n.mi.) 

BUFB(3,I) 

Azimuth  of  the  true  target-/  position  (rad) 

BUFB(4,I) 

Elevation  of  the  true  target -/  position  (rad) 

BUFB(5,I) 

Time  when  the  radar  scans  by  target  / (s) 

BVDEG 

Elevation  of  target  / measured  from  the  horizon  in  degrees  for 
printing 

CCM 

Speed  of  light  (cm/s) 

CNM 

Speed  of  light  (n.mi./s) 

CONV 

Conversion  factor  for  converting  natural  logarithms  to  dB  ( 10 
log10  e) 

DBE 

Signal  energy  of  target  / with  respect  to  rritode  J (dB  re  1 J) 

DBN 

Total  noise  energy  with  respect  to  mode  </  (dB  re  1 J) 

DWL(J) 

Frequency  increment  for  mode  J (Hz) 

ELEV(I,K) 

Elevation  of  the  ftth  centroided  detection  of  target  / 

ELOUT(L) 

Elevation  of  the  1th  clutter  detection 

ENDT1M 

Time  at  which  the  current  run  terminates  (h) 

ENVIR(3) 

Multipath  indicator: 

0 = no  multipath 

1 = multipath 

FAC4 

Multipath  propagation  factor  to  the  fourth  power 

FOP1QB 

(4tt)3 

FOPISQ 

(4t r)2 

GN 

One-way  antenna  gain 

IANS 

Recycle  run  control: 

1 = new  run  with  a new  radar  and  new  targets  and  environ- 

ment 

2 = new  run  with  the  current  radar  and  new  targets  and 

environment 

3 = new  run  with  the  current  radar  and  targets  and  a new 

environment 

4 = all  runs  completed 

IC 

Number  of  fixed  clutter  detections  on  the  current  scan 

ICNT 

Detection  counter  used  for  the  output  file 

IMODE(J.l) 

Number  of  pulses  integrated  for  mode  J 

IOUT 

Logical  unit  for  the  detection  output  file 

ISC 

Radar-scan  counter 

ISTAT(I) 

Status  indicator  for  target  /: 

0 = target  ,is  inactive 

1 = target  is  active 

ISWIT 

Frequency  indicator: 

0 = frequency  of  the  current  scan  mode  differs  from  the 

previous  mode 

1 = no  change  in  frequency  from  the  last  mode 
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Table  8 (Continued)  — SURDET3D  Variables 


F ortran  Variable 

Description 

1TITLE 

Array  containing  alphanumeric  run  identification 

IV 

Number  of  fixed  and  variable  clutter  detections  on  the  current 

scan 

MER3(I) 

Indicator  of  interfering- target  problems  with  respect  to  target  /: 

0 = no  merging  problem 

-1  = merging  problem  with  target  /,  target  detected 
-2  = merging  problem  with  target  /,  target  not  detected 

MUL 

Multipath  indicator: 

0 = no  multipath 

1 = multipath 

NC(K) 

Index  of  the  ftth  detector  fixed  clutter  point 

NDET(I) 

Number  of  centroided  detections  of  target  / 

NDET3(I,J) 

Number  of  detections  of  target  / by  mode  J 

NEXT 

Current  radar  scan  mode 

NREF 

Number  of  reference  cells  on  each  side  of  the  test  cell 

NSCAN 

Number  of  radar  scan  modes  defined 

NT  ARC 

Number  of  targets  (to  be  detected) 

OER 

Frequency  of  the  current  radar  scan  mode  (MHz) 

PBBS 

F3evation  beam  center  of  the  current  radar  mode 

PITCH(l) 

Pitch  angle  at  the  time  of  detection  of  target  I 

PTOUT(R) 

Pitch  at  the  time  of  the  ftth  clutter  detection 

RADIAN 

Conversion  factor  for  radians  to  degrees  (180/ir) 

RANGE(l.K) 

Range  of  the  ftth  centroided  detection  of  target  I 

rangf:3(i,k,j) 

Range  of  the  ftth  detection  of  target  / by  mode  J 

RC(  1 ) 

Basic  radar  frequency  (MHz) 

RC(4) 

Horizontal  3-dB  beamwidth  (rad) 

RC(5) 

Vertical  3-dB  beamwidth  (rad) 

RC(6) 

One-way  antenna  gain 

RC(ll) 

Power  received  for  target  I ( W ) 

RC(12) 

Signal  energy  for  target  / (J) 

RC(13) 

Clutter  energy  for  target  / ( J ) 

RC(  1 4 ) 

Thermal  noise  plus  jamming  for  target  / (J) 

RC(15) 

Number  of  reference  cells  on  each  side  of  the  target  cell  used  in 
the  moving- window  detector 

RC(16) 

Clutter  correlation  coefficient 

RC(17) 

Number  of  standard  deviations  used  in  the  detection  threshold 

RC(18) 

Azimuth  offset  between  beam  positions  (rad) 

RC(20) 

Detector  video  type: 

0 = linear  video 

1 = log  video 

RC(21) 

Number  of  reference  cells  used  to  calculate  the  threshold: 

0 = all  cells  used 

<0  = half  with  smaller  mean  value  used 
>0  = half  with  larger  mean  value  used 

Table  continues 
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Table  8 (Concluded)  — SURDET3D  Variables 
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Input  for  SURDET3D 

An  engagement  scenario  consists  of  a radar,  one  or  more  targets  to  be  detected,  and  an 
optional  number  of  sources  of  jamming  radiation  (subsequently  referred  to  as  jammers)  set 
in  a specified  environment.  The  number  of  targets  and  jammers  together  is  limited  to  20. 
The  required  input  information  is  divided  into  the  definitions  of  the  radar,  targets,  and 
jammers,  an  environment  with  optional  clutter,  and  output  and  recycle  control  parameters. 
The  data  cards  required  are: 

Data  card  1— printed-output  control  integer  (15  format): 

0 = no  output  printed, 

1 = only  the  detection  output  printed, 

2 = detailed  output  printed; 

Data  card  2— title  card  (14, 19A4  format): 

1.  Radar  integer  ID, 

2.  Alphanumeric  run  identification; 

Data  card  3— ship  (radar)  position  (4F8.2  format): 

1-3.  Position  coordinate  (x,  y,  z)  (kft), 

4.  Ship  heading  (deg); 

Data  card  4—11  basic  radar  parameters  (9F8.2,12,F6.2  format): 

1.  Radar  frequency  (MHz), 

2.  Antenna  pattern  function  indicator  (0  = pencil  beam  and  1 = cosecant-squared 
beam), 

3.  Receiver  noise  (dB), 

4.  Horizontal  3-dB  beam  width  (deg), 

5.  Vertical  3-dB  beamwidth  (deg), 

6.  One-way  antenna  gain  (dB), 

7.  One-way  sidelobe  level  (dB  down  from  peak), 

8.  Receiver  loss  (dB), 

9.  Transmitter  loss  (dB), 

10.  Number  of  scan  modes  (limited  to  30), 

11.  Linear  polarization  (0°  to  90°,  where  0°  = horizontal  and  90°  - vertical); 

Data  cards  5 and  6 (one  set  for  each  radar  scan  mode)— 15  parameters  for  each  scan 
mode  (10F8.2/5F8.2  format): 

1.  Lower  3-dB  point  of  the  elevation -angle  coverage  (deg), 

2.  Upper  3-dB  point  of  the  elevation-angle  coverage  (deg), 

3.  Peak  power  (MW), 

4.  Pulse  length  (ps), 

5.  Interlook  period  (s)  (must  be  identical  for  all  modes), 

6.  Scan  offset  (s), 

7.  Instrumented  range  (n.mi.), 
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8.  Mode-dependent  loss  (dB), 

9.  Number  of  pulses  integrated, 

10.  Compressed- pulse  length  (ps), 

11.  Sea-clutter  improvement  factor  (dB), 

12.  Intermediate- frequency  bandwidth  (MHz)  (if  0,  the  bandwidth  is  set  ai  1 .0/ 
compressed-pulse  length), 

13.  Mode-dependent  frequency  increment  (MHz), 

14.  Blanking  time  (ps)  (if  0,  the  blanking  time  is  set  at  the  pulse  length), 

15.  Rain-clutter  improvement  factor  (dB); 

Data  card  7— seven  parameters  for  the  moving- window  detector  (7F8.2  format): 

1.  Number  of  reference  cells  on  each  side  of  the  target  cell, 

2.  Clutter  correlation  coefficient, 

3.  Number  of  standard  deviations  used  in  the  threshold  which  determines  the 
probability  of  false  alarm  (guidance  in  setting  the  threshold  value  is  given  by 
Appendix  A), 

4.  Azimuth  offset  between  beam  positions  (deg), 

5.  Video-type  indicator  (0  = linear  video  and  1 = log  video), 

6.  Number  of  reference  cells  used  for  the  threshold  (0  = all  cells  used, ' 0 = half 
with  smaller  mean  value  used,  and  > 0 = half  with  larger  mean  value  used), 

7.  Parameters  used  to  calculate  the  threshold  (1  = mean  used  and  2 = mean  and 
variance  used); 

Data  card  8— number  of  targets  and  jammers  (total  limited  to  20)  (215  format): 

1.  Number  of  targets, 

2.  Number  of  jammers; 

Data  card  9 (one  card  for  each  target  and  jammer,  paired  with  a card  10)  —13  target 
parameters  ( 12F6. 2,13  format): 

1-4.  Initial  coordinates  (x,  y,  z)  (kft)  and  time  (s), 

5-8.  Terminal  coordinates  (x,  y,  z ) (kft)  and  time  (s), 

9-11.  Head-on,  broadside,  and  minimum  radar  reflective  areas  (m2 ), 

12.  Jamming  power  density  (W/MHz), 

13.  Marcum- Swerling  cross-section  model  number; 

Data  card  10  (one  card  for  each  target  and  jammer,  paired  with  a card  9)  target  pro- 
file parameters  (I4.7F6.2  format): 

1.  Target  profile  type  (0  = straight-line  trajectory,  1 = altitude  legs,  and  2 g 
maneuver  at  constant  altitude),  with  profile  parameters  2 through  8 that  fol- 
low being  ignored  for  target  profile  type  0 and  being  as  indicated  for  target 
types  1 and  2, 

2.  Number  of  altitude  nodes  (maximum  of  three),  for  target  type  1 , or  target 
speed  (kft/s),  for  target  type  2, 

3.  First  altitude  node  (kft),  for  target  type  1,  or  initial  heading  of  the  target 
(deg),  for  target  type  2, 
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4.  Time  of  the  target  arrival  at  the  first  node  (s)  for  target  type  1 , or  time  the 
maneuver  begins,  for  target  type  2, 

5.  Second  altitude  node  (kft),  for  target  type  1,  or  radial  acceleration  of  the 
maneuver  (#’s),  for  target  type  2, 

6.  Time  of  the  target  arrival  at  the  second  node  (s),  for  target  type  1,  or  ignored 
for  target  type  2, 

7.  Third  altitude  node  kilofeet  (kft),  for  target  type  1,  or  ignored  for  target 
type  2, 

8.  Time  of  the  target  arrival  at  the  third  node  (s),  for  target  type  1,  or  ignored  for 
target  type  2; 

Data  card  11  — four  environmental  parameters  (4F8,2  format): 

1.  Wind  speed  (knots), 

2.  Height  of  the  wind-speed  measurement  (kft), 

3.  Multipath  indicator  (1  = multipath  and  0 = no  multipath), 

4.  Rainfall  rate  (mm/h);  , 

Data  card  12— nine  fixed  clutter  parameters  (2I8,7F8.2  format): 

* 

1.  Initialization  for  the  random- number  generator  for  generation  of  fixed  clutter 
points, 

2.  Number  of  fixed  clutter  points, 

3.  Probability  that  a clutter  point  is  detected, 

4.  Initial  range  of  the  clutter  area  (kft), 

5.  Final  range  of  the  clutter  area  (kft), 

6.  Standard  deviation  of  the  range  measurement  ( percent  of  the  range-resolution 
cell  size), 

7.  Initial  azimuth  of  the  clutter  area  (deg), 

8.  Final  azimuth  of  the  clutter  area  (deg), 

9.  Standard  deviation  of  the  azimuth  measurement  (percent  of  the  horizontal 
3-dB  beam  width); 

Data  card  13— two  basic  variable  clutter  parameters  (218  format): 

J 

1.  Initialization  for  the  random-number  generator  for  generation  of  variable 
clutter  points, 

2.  Number  of  clutter  regions; 

Data  card  14— (one  card  for  each  clutter  region)— seven  parameters  for  each  clutter 
region  (7F8.2  format): 

1.  Average  number  of  clutter  points  in  the  region,  i 

2.  Initial  range  of  the  clutter  area  (kft), 

3.  Final  range  of  the  clutter  area  (kft), 

4.  Initial  azimuth  of  the  clutter  area  (deg), 

5.  Final  azimuth  of  the  clutter  area  in  (deg), 

6.  Initial  elevation  of  the  clutter  area  (deg),  ~- 

7.  Final  elevation  of  the  clutter  area  (deg);  ' 
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Data  card  15— four  roll  and  pitch  parameters  (4F8.2  format): 

1.  Maximum  roll  angle  (deg), 

2.  Maximum  pitch  angle  (deg), 

3.  Roll  period  (s)  (a  number  >0  should  be  specified), 

4.  Pitch  period  (s)  (a  number  >0  should  be  specified); 

Data  card  16— time  parameter  (F8.2  format): 

1.  Game  time  (s)  by  which  the  radar  must  initiate  scanning; 

Data  card  17— recycle  control  parameter  (15  format): 

1 = a new  scenario  is  to  be  read,  with  the  next  data  card  being  data  card  1, 

2 = current  radar  parameters  are  to  be  retained,  but  new  targets  and  environment 

are  to  be  read,  with  the  next  data  card  being  data  card  8, 

3 = current  radar  and  target  parameters  are  to  be  retained,  but  a new  environment 

is  to  be  read,  with  the  next  data  card  being  data  card  11, 

4 = all  runs  completed. 

All  input  data  from  data  cards  2 through  16  are  printed  as  output  at  the  beginning  of  each 
run. 


Output  from  SURDET3D 

An  engagement  is  initiated  either  30  s prior  to  the  time  a target  first  comes  within  the 
instrumented  range  of  a radar  mode  or  at  the  latest  time  by  which  the  radar  must  be  initial- 
ized (as  specified  by  input),  whichever  occurs  first.  Once  initiated,  the  simulation  produces 
an  output  detection  report  for  each  radar  (azimuth)  scan  until  the  engagement  terminates 
with  the  last  target  reaching  its  final  position.  A sample  printed  output  for  a single  scan  is 
reproduced  in  Fig.  4.  1 

The  sample  report  is  identified  as  scan  number  11  in  line  1.  The  results  of  each  step  in 
the  elevation  scan  of  target  1 and  target  2 are  given  in  lines  3 through  11  and  12  through  18  > 

respectively.  Lines  3, 6,  9, 11,  12, 14, 16,  and  18  contain  the  following  information,  as 
indicated  by  the  heading  in  line  2: 

TARGET  Target  number, 

MODE  Radar  scan  mode  number  (step  in  elevation  scan), 

TIME  Time  of  the  scan  (s), 

RANGE  Slant  range  of  the  target  from  the  radar  (kft), 

AZIM  Azimuth  angle  of  the  target  (deg), 

ELEV  Elevation  angle  of  the  target  (deg), 

SIGMA  Radar  cross  section  of  the  target  (m2 ), 

FACTOR  Multipath  pattern- propagation  factor  (dB), 

ESIG  Signal  energy  (dB  re  1 J), 

NAMB  Ambient  noise  (dB  re  1 J), 

NCLT  Clutter  energy  (dB  re  1 J), 

NJAM  Jamming  energy  (dB  re  1 J), 
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Fig.  4 — SURDET3D  output  report.  In  this  reproduction  the  line  numbers  at  the  left  have  been  added  to  facilitate  the  discussion  in  the  text 
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E/N  Signal-energy-to-noise-energy  ratios  (dB),  with  the  first  ratio  being  the 

value  when  the  radar  is  pointing  at  the  target  and  the  second  ratio  being 
the  actual  value  used  to  determine  a detection, 

MER3  Indicator  of  the  interfering- target  problem  (to  be  described  in  the  sub- 

section on  subroutine  DET3D). 

Lines  4 and  5 report  two  detections  of  target  1 by  scan  mode  1.  The  range  and  azimuth  of 
the  reference  cell  in  which  each  detection  took  place  are  given  under  RANGE  and  AZIM 
respectively.  The  signal  amplitude  (re  noise  energy)  corresponding  io  each  detection  is 
given  in  decibels  under  ESIG.  Similarly  lines  7 and  8 report  detections  of  target  1 by  scan 
mode  2,  line  10  reports  a detection  of  target  1 by  mode  3,  line  13  reports  a detection  of 
target  2 by  mode  1,  line  15  reports  a detection  of  target  2 by  mode  2,  and  line  17  reports 
a detection  of  target  2 by  mode  3. 

Lines  16  through  38  are  the  data  constituting  the  output  record  written  on  logical 
unit  IOUT  for  subsequent  use  as  input  to  the  MERIT  tracking  programs  [2] . (In  addition 
the  actual  range,  azimuth,  and  elevation  of  each  target  and  the  time  each  is  scanned  by  the 
radar  are  also  written  on  IOUT.)  Line  19  identifies  the  current  record  by  specifying  the 
scan  number,  current  game  time  in  seconds,  number  of  detections  (including  false  alarms), 
radar  identification  augmented  by  3000,  ship’s  heading  in  radians,  and  number  of  targets  de- 
fined. The  remaining  lines,  labeled  by  detection  number,  provide  data  as  labeled  by  line  20 
for  each  centroided  target  detection  and  false  alarm  (fixed  or  variable  clutter  detection). 

The  information  provided  for  each  detection  starts  with  a detection  number:  0 through  99 
identifies  a target,  101  through  199  indicates  a fixed  clutter  point,  and  200  represents  a vari- 
able clutter  point.  Following  the  detection  number  are  the  estimated  range  in  nautical  miles, 
the  azimuth  and  elevation  angles  in  radians,  the  time  of  detection  in  seconds,  the  signal 
energy  in  decibels,  and  the  roll  and  pitch  angles  in  radians.  Presently  the  signal  energy  for 
fixed  and  variable  clutter  points  is  set  to  34.8937  and  30.4567  dB  respectively.  If  the  signal 
energy  is  t sed  by  a tracking  program,  an  appropriate  signal  energy  must  be  generated. 

An  o put  report  as  shown  in  Fig.  4 is  pnnted  for  each  radar  (azimuth)  scan  when  the 
print  output  control  parameter  (data  card  1)  is  2.  If  the  parameter  is  1,  then  only  trie  detec- 
tion history  given  by  lines  19  through  42  is  printed.  If  the  parameter  is  0,  then  no  output 
scan  reports  are  printed. 


Subroutine  ADJDET 

Subroutine  ADJDET  is  called  by  subroutine  MRDT3D.  The  routine  determines 
whether  the  ith  detection  of  target  KTAR  in  the  jth  mode  is  adjacent  to  any  detection  k in 
the  set  of  K detections  which  have  previously  been  determined  to  be  adjacent  (Table  9). 
Two  detections  are  adjacent  if  two  of  their  three  parameters  (range,  azimuth,  and  elevation) 
are  the  same  and  the  other  parameter  differs  by  at  most  the  resolution  element:  range- 
resolution  cell  A/f , azimuth  beamwidth  0,  or  elevation  beamwidth  7 respectively.  To  avoid 
roundoff  errors,  the  ith  detection  is  added  to  the  previous  set  of  K adjacent  detections  if 
any  of  three  conditions  is  satisfied  for  any  feth  detection  in  the  set.  The  first  condition  is 

I R -Rk\<  1.2  AR, 

| A -Afc|  <0.1  0, 

|£  - £fc|  < 0.1  7; 


49 


DAVIS  AND  TRUNK 


the  second  condition  is 

IK  A R, 

I A ~Akl<1.20, 
lE~Ekl<0.1y; 

and  the  third  condition  is 

\R  - Rk\<  0.1  A R, 

\A -Ak\<0.1  0, 

\E~Ek\<\.2r, 

where  R,  A,  and  E are  the  range,  azimuth,  and  elevation  of  the  detection  being  tested  and 
Rk,Ak,  and  Ek  are  the  range,  azimuth,  and  elevation  of  the  ftth  detection  in  the  set  of 
adjacent  detections.  If  the  test  detection  is  adjacent  to  any  of  the  K adjacent  detections,  K 
is  increased  by  one  and  the  range,  azimuth,  elevation,  and  integrated  signal  power  of  the  test 
detection  are  stored  in  the  four  elements  of  DETPAR(K,4).  If  the  test  detection  is  not 
adjacent  to  any  of  the  K adjacent  detections,  NEWJJ  is  increased  by  one,  and  the  param- 
eters (range,  azimuth,  and  signal  power)  for  the  ith  detection  are  stored  in  the  location  of 
the  parameters  for  the  NEWJJth  detection. 


Table  9 - ADJDET  Variables 


Fortran  Variable 

Description 

A 

Azimuth  angle  A of  the  ith  detection  of  target  KTAR  by  the  ;th  radar  mode 

AZ3(KTAR4,J) 

Same  as  variable  A 

DETPAR(K.l) 

Range  Rk  of  the  feth  adjacent  detection 

DETPAR(K,2) 

Azimuth  Ak  of  the  feth  adjacent  detection 

DETPARIK.3) 

Elevation  Ek  of  the  feth  adjacent  detection 

DETPAR(K,4) 

Signal  power  of  the  feth  adjacent  detection 

E 

Elevation  angle  E of  the  jth  radar  mode 

EL3DB 

The  antenna  3-dB  elevation  beamwidth  y 

I 

Index  of  the  detection  being  tested 

.1 

Index  of  the  radar  mode  being  tested 

K 

Present  number  of  adjacent  detections 

KTAR 

Target  under  consideration 

NEWJJ 

Present  number  of  nonadjacent  detections  in  the  previous  set  of / - 1 detec- 
tions of  target  KTAR  by  the  jth  mode 

R 

Range  It  of  the  ith  detection  of  target  KTAR  by  the  jth  radar  mode 

RAN(JE3(KTAR,i,J) 

Same  as  variable  R 

RES 

Range-cell  dimension  A R 

RMODE(J.l) 

Elevation  angle  E of  the  yth  radar  mode 

SNDET3(KTAR,M) 

Signal  power  of  the  ith  detection  of  target  KTAR  by  the  ;th  radar  mode 

TH3DB 

The  antenna  3-dB  azimuth  beamwidth  6 

. I 
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Subroutine  DET3D 

Subroutine  DET3D  is  called  for  every  target  and  radar  mode  on  each  radar  scan  as  long 
as  the  difference  between  the  center  of  the  elevation  I team  of  the  rad;u  mode  and  the  target 
elevation  angle  is  less  than  the  3-dB  elevation  beamwidth.  The  purpose  of  the  routine  is  to 
declare  target  detections  by  generating  pulse- to-pulse  video  returns,  integrating  the  returned 
signal,  and  comparing  the  returned  signal  to  an  adaptive  threshold  which  is  generated  from 
the  surrounding  reference  cells.  Detections  can  be  made  in  adjacent  range  cells  and  adjacent 
azimuth  beam  positions  in  addition  to  the  range-azimuth  cell  in  which  the  target  is  present. 

Thus  in  theory  a radar  mode  can  report  nine  detections  of  a single  target. 

The  routine  initially  tests  whether  appropriate  input  parameters  (Table  10)  are  less 
than  preassigned  values:  the  number  of  pulses  integrated  M is  less  than  32,  the  number  of 
reference  cells  NR  on  each  side  of  the  test  cell  is  less  than  ten,  and  the  absolute  value  of 
clutter  correlation  coefficient  p is  less  than  1.0.  If  any  parameter  exceeds  its  limit,  an  error 
message  is  printed  and  the  program  stops. 

Next,  M times  the  ratio  of  signal  to  clutter-plus- noise  is  compared  to  2.  If  the  value  is 
less  than  2,  the  target  is  declared  not  detected,  the  number  of  detections  of  target  NTAR  by 
the  ;th  mode  NDET3(NTAR,J)  is  set  to  0,  and  control  is  returned  to  the  calling  routine. 

Otherwise  the  detailed  simulation  is  begun  by  finding  all  the  targets  which  lie  within  the 
reference  cells  of  target  NTAR.  The  list  of  interfering  targets  INF  is  initialized  by  setting 
INF(l)  = NTAR,  and  the  corresponding  signal  energy  SNREF(l)  is  set  equal  to  the  target 
energy  S.  The  remaining  interfering  targets  are  found  by  calling  subroutine  RESOL,  which 
calculates  the  number  of  interfering  targets  NI,  lists  the  index  of  the  interfering  targets  in 
the  array  INF,  and  lists  the  corresponding  signal  energies  in  SNREF. 

The  main  recursive  section  of  the  routine  generates  the  azimuth  beam  positions  on 
either  side  of  the  azimuth  beam  position  with  maximum  gain.  It  first  generates  the  azimuth 
beam  position  preceding  the  main-gain  beam  position.  This  beam  position  0 is 

0 = 0b(Ko  + IAZ  - 2),  (88) 

where  IAZ  = 1 for  the  first  beam  position,  0 R is  the  azimuth  angle  between  complete  eleva- 
tion scans,  and  K„  is  the  integer  defined  by  ' 

Ke  = integer  [(A  - 0y)/0B  + O.BJ , (89) 

in  which  A is  the  target  azimuth  and  0y  is  the  azimuth  angle  of  the  first  elevation  scan. 

In  the  simulation  the  video  return  is  generated  only  in  the  reference  cells  surrounding 
the  target.  Thus,  to  save  computer  storage,  only  25  range  cells  are  saved  and  the  target  is 
always  placed  in  the  13th  cell.  Consequently  the  range  to  the  start  of  the  first  range  cell  is 

Rs  = AR(Krs  - 13), 

where  AR  is  the  range-cell  dimension  and  KRS  is  the  integer  defined  by 

Krs  ~ integer  (R/AR), 

in  which  R is  the  target  range. 
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The  first  step  in  generating  the  radar  video  return  is  to  generate  the  signal  (target) 
return  in  the  appropriate  range  cells.  Specifically,  the  index  of  the  first  range  cell  is 

NF  = ll-NR,  (92) 


and  the  index  of  the  last  range  cell  is 


NL=lb  + NR 


(93) 


Thus,  if  NR  = 10,  signal  must  be  placed  in  all  25  range  cells.  The  signal  return  for  the  ith 
pulse  and  the  jth  range  cell  StJ  and  an  indicator  of  signal  in  the  jth  range  cell  I(j)  are  initially 
set  to  zero  for  all  i and  j.  Then  the  signal  return  from  each  of  the  NI  interfering  targets  lying 
within  the  reference  cells  is  generated.  For  the  feth  target  this  is  accomplished  by  first 
generating  the  appropriate  fluctuating  amplitudes  Fik  for  the  ith  pulse,  if  the  valid  fluctuat- 
ing amplitudes  have  not  been  calculated  previously  ; IKEY(NTAR)  = 1 indicates  that  Fik  has 
been  calculated  previously  for  Swerling  cases  1 and  3 (scan-to-scan  fluctuations)  for  either  a 
previous  azimuth  or  elevation  beam  position.  If  Fik  needs  to  be  calculated  (either  the  first 
time  for  Swerling  cases  1 and  3 or  every  time  for  Swerling  cases  2 and  4),  Fik  is  given  for 
the  appropriate  Swerling  case  NSW  by  the  following  equations,  in  which  the  Ujt  i = 1, ..., 

Af , are  independent  random  numbers  uniformly  distributed  between  0 and  1.  For  NSW  = 0 
(nonfluctuating  target) 

Fik  = 1,  i = 1, ....  Af.  (94) 

For  NSW  = 1 (scan-to-scan  fluctuations,  Rayleigh  density) 

*ik  = - log  U1 , i=  1 Af.  (95) 

For  NSW  = 2 (pulse- to-pulse  fluctuations,  Rayleigh  density) 

Fik  =-IogC/,-,  (=1 Af.  (96) 

For  NSW  = 3 (scan-to-scan  fluctuations,  chi-square  density) 

Fik  =-0.5(log(/1  +logf/2),  i=l Af.  (97) 

For  NSW  = 4 (pulse-to-pulse  fluctuations,  chi-square  density) 


Fih  = - 0.5(log  £/,  + log  UMH),  i = 1 Af.  (98) 

The  signal  is  next  placed  in  the  appropriate  range  cell  and  the  adjacent  range  cells  by 
reducing  the  returned  signal  by  a [(sin  x)/x] 2 pulse  shape  and  a [(sin  x)/x] 4 antenna 
pattern.  The  return  signal  from  the  feth  target  is  centered  in  range  cell  KR  : 


Kr  = integer  [(/2fe  ~RS)/AR),  (99) 

where  Rk  is  the  range  of  the  feth  target.  The  signal-return  reduction  F in  the  adjacent  range 
cell 


Kt-Kr*I,  / = -1,0,1, 


(100) 
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is  given  by  (because  of  the  (sin  x)/x  pulse  shape) 

F-((smFd)/Fd]2, 

where 

Fd  = 2.7832 (Rk  -Rr)/AR 

and 


Rt  = (Kt  + 0.5)Afi  + Rs. 

At  this  time  the  indicator  1(KT)  is  set  equal  to  1. 

Similarly  the  signal  reduction  G due  to  the  (sin  x)/x  antenna  pattern  is 

G = [(sin  Gd)/Gd]4, 

where 


(101) 


(102) 

(103) 


(104) 


Gd  = 2.7832 (A^  -0)10 (105) 

in  which  A ^ is  the  azimuth  of  the  kth  target  and  03cjB  is  the  antenna  3-dB  azimuth  beam- 
width.  Finally,  the  signal  (normalized  by  the  clutter  energy  C and  noise  energy  N)  due  to 
the  fcth  target  in  the  K-r th  range  cell  for  the  azimuth  beam  position  specified  by  Eq.  88  is 

si,KT(ne  w)  = s/,K7  .(old)  + GFFikFk/(C  + N),  (106) 

where  Pk  is  the  signal  energy  of  the  fcth  interfering  target. 


The  calculation  indicated  by  Eqs.  100  through  106  is  first  repeated  for  the  adjacent 
range  cells  indicated  in  Eq.  100.  Then  the  calculation  indicated  by  Eqs.  94  through  106  is 
repeated  for  all  NI  targets  in  the  reference  cells.  Thus  at  the  end  of  all  of  these  repetitions 
Sjj  is  the  signal  energy  in  the  (th  pulse  and  ;th  range  cell  due  to  all  the  targets  in  the  refer- 
ence cells. 


Next  Rayleigh  noise  (and  possibly  correlated  clutter)  is  added  to  the  signal  to  produce 
the  total  video  return  Xy.  The  video  return  is  generated  (because  of  computer  speed  con- 
siderations) for  three  distinct  cases:  clutter  insignificant  and  no  signal  present  in  the  range 
cell,  clutter  insignificant  and  signal  energy  S,.  present  in  the  range  cell,  and  clutter  signifi- 
cant. The  significance  of  clutter  is  indicated  Dy  the  product  of  clutter  and  the  number  of 
pulses  integrated  CM  being  greater  than  N,  and  signal  present  in  the  yth  cell  is  indicated  by 
1{J)  * 1.  Thus,  the  ith  return  in  thejth  cell  is  given  as  follows.  For  clutter  insignificant 
(CM  < N ) and  no  signal  in  the  )th  cell  (/(/)  = 0) 

x(y  = (-2  1ogf/,)1/2,  ( = 1 M,  (107) 

where  the  Ui  are  independent  uniform  random  numbers  between  0 and  1 different  for  each 
j.  For  clutter  insignificant  (CM  < N)  and  signal  in  the  ;th  cell  (/(;)  = 1) 

Xij  “ {[or,  cos  0,  + (2S,y)1/2 ] 2 + (a,  sin  0,)2} 1/2,  (108) 
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a,  = (-  2 log  Uj)1 


<t>i  = 2 *Ui+M. 


For  clutter  significant  (CAf  > N ) 


Xij  = {[CX,  + a,  cos  + (2Sjj)1/2  ] 2 + (CF,  + a,  sin  0;)2}  1/2> 
where  the  Rayleigh- noise  components  a,  cos  0,  and  a,  sin  0,  are  given  by 

a,.  = Af'(-21og(/1+Af)1/2 


0i  _ 2tt  Ui+3M, 


N’=  [N/(C  + A0]1/2, 


the  clutter  is  given  by 


CX,  = pCXj.j  + (1  - p2)1/2a;  sin  0| 


in  which 


CF,  = pCF,.!  + (1  - p2),/2a;  cos  0,', 


a!  = C'(-  2 log  t/,)1 


and  the  initial  clutter  values  are 


0|  = 


C'»  [C/(C  + JV)J1/2, 


CX0  ■ C'a0  cos  0o 


C F0  = C’a0  sin  0(,. 
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Next  a decision  is  made  whether  to  use  linear  video  (Fortran  variable  XLOG  = 0.0)  or 
log  video  (XLOG  = 1.0),  according  to  the  value  of  XLOG  specified  at  input.  Then  the  M 
pulses  are  integrated  in  each  range  cell,  yielding  the  values 


Z, 


M 

L 

/=! 


•i  = E *«■ 


(122: 


The  detection  threshold  Tj  for  the ;th  range  cell  (j  = 12, 13,  and  14)  uses  either  all  the 
reference  cells,  the  half  with  the  minimum  mean  value,  or  the  half  with  the  maximum  mean 
value.  Furthermore,  the  threshold  may  be  based  on  either  one  parameter  (the  mean)  or  two 
parameters  (the  mean  and  the  variance).  Thus  the  mean  is 


j 

= 2Nn  E + 


or 


ZJ- 


Nr 

L 

(Zi 

1=1 

1 

Nr 

Nr 

L-> 

/=  1 

1 

Nr 

Y1 

Nr 

2_ 

i=i 

and  the  corresponding  mean  squares  are 

1 


Nr 


Zf 


J 2N 


R 


E (Zf+  1 +i  + Zf-l  -i>’ 


i=l 


N„ 


Z2  = — Y 72 

i Nr,  L* 


1=1 


and 


Nr 


z2  = — v2 

> Nu 


The  standard  deviation  is 


Oj  = \Zf  -(Zj)2]112, 


(123a; 


(123b] 


(123c] 


(124a] 


(124b) 


(124c) 


(125) 
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where  Z.J  and  Z^  use  the  same  reference  cells.  The  two-parameter  threshold  for  either  linear 
or  log  video  is 

Tj  = Zj  + FaOj,  (126) 

where  the  parameter  F0  is  used  to  set  the  false  alarm  rate.  (Appropriate  values  of  F„  are 
given  in  Appendix  A.)  The  two-parameter  threshold  for  log  video  has  dubious  meaning, 
since  the  threshold  can  be  dominated  by  the  shape  of  the  density  function  near  zero.  The 
one- parameter  threshold  is 

Tj  = Fa  Zj  (127) 

for  linear  video  and 

Tj  = Fa  +Zj  (128) 


i 


for  log  video. 

Finally,  detections  are  declared  by  comparing  Z12,  Z]3,  and  Z14  to  T^,  T13,  and  T14 
respectively.  If  Zy  is  greater  than  Ty,  a detection  is  declared  in  the;th  range  cell,  the  counter 
for  the  number  of  detections  denoted  by  II  is  increased  by  one,  and  the  following  detection 
parameters  are  saved: 

II,  the  number  of  detections, 

Rs  + (;  + 0.5)AK,  the  range  of  the  detection, 

0,  the  azimuth  of  the  detection, 

Zy(C  + N),  the  signal  amplitude  of  the  detection,  and 
Time,  the  time  of  the  detection. 

Also,  if  any  target  lies  within  three  range  cells  and  2.4  azimuth  beamwidths  of  target 
NTAR,  MER3(NTAR)  is  set  to  -1,  which  notes  this  interfering- target  condition. 

After  the  detection  tests  have  been  performed  for  the  initial  azimuth  beam  position 
with  IAZ  = 1,  all  calculations  are  repeated  for  the  other  two  beam  positions.  If  there  are 
interfering- target  conditions  and  if  the  target  has  not  been  detected  on  this  mode  or  pre- 
vious modes  of  this  radar  scan,  MER3(NTAR)  is  set  to  -1.  Then  control  is  returned  to  the 
executive  routine. 


Table  10  - DET3D  Variables 


Fortran  Variable 

Description 

A 

Rayleigh  random  variable  (a,  in  Eq.  109) 

AA 

Azimuth  of  the  kth  interfering  target  (Ak  in  Eq.  105) 

AOLDX 

AOLDY 

Gaussian  clutter  random  variable  (CX,  in  Eq.  115) 

Gaussian  clutter  random  variable  (CY,  in  Eq.  116) 

AZBBP 

Azimuth  angle  between  elevation  scans  ( 0B  in  Eq.  88) 

AZIM 

Azimuth  of  the  center  of  the  present  beam  position  (0  in  Eq.  88) 

Table  continue*. 
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Table  10  (Continues)  — DET3D  Variables 


Fortran  Variable 

Description 

AZIN1T 

Azimuth  of  first  complete  elevation  scan  ( Oj  in  Eq.  89) 

AZ3(I,II,J) 

Azimuth  of  the  //th  detection  of  the  ith  target  by  theyth  mode 

A1 

Rayleigh  random  variable  (a-  in  Eq.  117). 

B 

Uniformly  distributed  phase  angle  (0,  in  Eq.  113) 

B1 

Uniformly  distributed  phase  angle  (0'  in  Eq.  118) 

C 

Clutter  energy  (C  in  Eqs.  106,  114,  and  119) 

CC 

Normalized  clutter  energy  (C'  in  Eq.  119) 

COR 

Clutter  correlation  coefficient  (p  in  Eqs.  115  and  116) 

D(J) 

Detection  threshold  for  the  yth  range  cell  (Tj  in  Eqs.  126, 127,  and 

128) 

F 

Signal  reduction  due  to  pulse  shape  (F  in  Eq.  101) 

FDIF 

Normalized  difference  between  the  target  range  and  the  center  of 
range  cell  (Fd  in  Eq.  102) 

FFN 

Normalized  noise  energy  ( N ' in  Eq.  114) 

FL 

Fluctuation  amplitude  when  the  amplitude  is  the  same  for  all  pulses 

FLUCT(I,J) 

Fluctuation  amplitude  of  the  ith  pulse  and  the  jth  interfering  target 
(Fik  in  Eqs.  94  and  98) 

FN 

Noise  energy  ( N in  Eqs.  106,  114,  and  119) 

FSIG 

Number  of  standard  deviations  used  in  the  calculation  of  the  thresh- 
old ( Fa  in  Eq.  126) 

G 

Signal  reduction  due  to  the  antenna  pattern  (G  in  Eq  104) 

GDIF 

Normalized  difference  between  the  target  azimuth  and  the  center  of 
the  beam  (Gd  in  Eq.  105) 

IAZ 

Index  of  the  current  azimuth  beam  position  (IAZ  in  Eq.  88) 

11 

Number  of  detections  (II  in  text  after  Eq.  128) 

IKEY(NTAR) 

Indicator  that  fluctuation  amplitudes  have  been  calculated  at  least 
once  for  target  NTAR 

IMERGE 

Indicator  that  the  interfering  target  is  in  the  9th  to  the  17th  range 
cell 

INF(I) 

Index  of  the  ith  interfering  target 

1S(J) 

Indicator  that  the  signal  is  in  the jth  range  cell  (/(;)  in  text  preceding 

Eq.  107) 

KAZ 

Azimuth  beam  position  closest  to  the  target  (Kn  in  Eq.  89) 

KK 

Counter  for  random  numbers 

KR 

Range  cell  in  which  feth  interfering  target  lies  (KR  in  Eq.  99) 

KRS 

Range  cell  in  which  target  NTAR  lies  (KRS  in  Eq.  91) 

KT 

Range  cell  adjacent  to  the  target  cell  (KT  in  Eq.  100) 

M 

Number  of  pulses  integrated  M 

M2 

Two  times  the  number  of  pulses  integrated 

M3 

Three  times  the  number  of  pulses  integrated 

M4 

Four  times  the  number  of  pulses  integrated 

MER3(I) 

Indicator  of  an  interfering- target  problem  (a  target  within  three  range 
cells  and  2.4  azimuth  beamwidths  of  the  ith  target)  for  the  ith 
target 

MODE 

Active  radar  mode 

Table  continues. 
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Fortran  Variable 


MODEL(I) 

MS 

N 

NDET3(I,J) 

NF 

NI 

NREF 

NREF2 

NRF 

NRS 

NS 

NSW 

NTAR 

N3DB 

P 

PARM 

R(I) 

RANGE3(I,II,J) 

RES 

RR 

RS 

RTEMP 

S 

SM 

SNDET3(1,II,J) 

SNINT 

SNREF(K) 

SS(I,J) 

SUM(J) 

THRSH 

TH3DB 

TRGPOS(I,4) 

TRGPOS(l,5) 

TWOPI 

U 

ULOW 

UUP 

X(M) 
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Table  10  (Continues)  — DET3D  Variables 


Description 


Swerling  fluctuation  index  for  the  ith  target  (NSW  in  text  preceding 
Eq. 94) 

Number  of  pulses  integrated  M 
Number  of  targets 

Number  of  detections  of  the  ith  target  by  the  ,/th  radar  mode 
Last  pulse  simulated  (M  in  Eqs.  94  through  98) 

Number  of  targets  in  the  reference  cells  (NI  in  text  after  Eq.  106) 
Number  of  reference  cells  on  each  side  of  the  test  cell  ( Nl{  in  Eqs. 

123  and  124) 

Two  times  NREF  (2 NR  in  Eqs.  123a  and  124a) 

Last  range  cell  used  (NL  in  Eq.  93) 

First  range  cell  used  (NF  in  Eq.  92) 

First  pulse  simulated  (1  in  Eqs.  94  through  98) 

Index  of  the  Swerling  fluctuation  model  (NSW  in  text  preceding 
Eq. 94) 

Target  of  interest 

Number  of  pulses  integrated  M 

Function  of  the  clutter  correlation  ((1  - p2)112  in  Eqs.  115  and  116) 
Parameter  to  denote  whether  the  mean  (PARM  = 1 ) or  the  mean  and 
the  variance  (PARM  = 2)  should  be  used  to  calculate  the  threshold 
Uniform  random  numbers  (U,  in  Eqs.  96  and  98) 

Range  of  the  Ilth  detection  of  the  z'th  target  by  the  ;th  mode 
Range-cell  dimension  (AR  in  Eq.  90) 

Range  of  the  kth  interfering  target  (Rk  in  Eq.  99) 

Range  to  the  first  of  the  25  range  cells  (Rs  in  Eq.  90) 

Range  to  the  center  of  the  KT th  range  cell  (RT  in  Eq.  103) 

Signal  energy  S 

Normalized  signal  energy  including  the  effects  of  the  pulse  shape 
Signal  amplitude  of  the  Ilth  detection  of  the  ith  target  by  the  jth 
mode 

Maximum  integrated  signal- to- noise  ratio 

Signal  energy  of  the  feth  interfering  target  (Pk  in  Eq.  106) 

Signal  energy  of  the  ith  pulse  and  the/th  range  cell  (Siy  in  Eqs.  108 
and  111) 

Integrated  sum  of  the ;th  range  cell  (Zj  in  Eq.  122) 

Indicates  reference  cells  to  be  used 

The  3-dB  azimuth  antenna  beamwidth  (03dB  in  Eq.  105) 

Range  of  the  ith  target  (R  in  Eq.  91) 

Azimuth  of  the  ith  target  (A  in  Eq.  89) 

Two  times  3.1415926636,  or  2rr 

Mean  value  of  the  reference  cells  (Zj  in  Eq.  123a) 

Mean  value  of  lower  half  of  the  reference  cells  (Zj  in  Eq.  123c) 

Mean  value  of  upper  half  of  the  reference  cells  (Zj  in  Eq.  123b) 

Video  return  of  the  ith  pulse  in  the  ;th  cell  (jc(J  in  the  text  preceding 
Eq. 107) 

Table  continue*. 
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Table  10  (Concluded)  — DET3D  Variables 


Fortran  Variable 

Description 

XLOG 

XMS 

XMSLOW 

XMSUP 

Denotes  the  type  of  video  to  be  used  (linear  if  XLOG  = 0 and  log  if 
XLOG  = 1)  _ 

Mean  square  of  the  reference  cells  (Z2  in  Eq.  124a)  

Mean  square  of  the  lower  half  of  the  reference  cells  (Zy2  in  Eq.  124c) 
Mean  square  of  the  upper  half  of  the  reference  cells  (Zf  in  Eq.  124b) 

Subroutine  FXCLT3 

Subroutine  FXCLT3  generates  fixed  clutter  points  and  is  called  once  per  scan  by  the 
executive  routine.  The  routine  is  initialized  by  calling  the  entry  point  FC1N1T.  The  initial- 
ization section  reads  in  the  following  nine  inputs  with  a (2I8.7F8.2)  format  (Table  11): 

ISET  — initialization  number  for  the  random-number  generator, 

N — number  of  fixed  clutter  points, 

PROB  — probability  that  a clutter  point  is  detected, 

RS  — initial  range  of  the  clutter  area  (kft), 

RF  — final  range  of  the  clutter  area  (kft), 

SIGR  — standard  deviation  of  the  range  measurement  (fractions  of  a range  cell), 
THS  — initial  azimuth  of  the  clutter  area  (deg), 

THF  — final  azimuth  of  the  clutter  area  (deg), 

SIGA  — standard  deviation  of  the  azimuth  measurement  (fractions  of  a beam- 
width). 

The  initialization  section  calculates  the  range-cell  dimension  AR  by 

AR  = ctc/2,  (129) 

where  c is  the  speed  of  light  and  tc  is  the  compressed  pulsewidth.  Next  the  input  values  are 
converted  to  nautical  miles  and  radians  for  internal  use.  Finally,  N fixed  clutter  points  are 
generated  by 


R,  - Rs  + (RF  -Rs)U,  (130) 

and 

Oi‘0s*(0F-0s)Vr  (131) 

where  Rt  and  0,  are  the  range  and  azimuth  of  the  clutter  points,  Rs  and  RF  are  the  initial 
and  final  range  boundaries  of  the  clutter  area,  0S  and  0F  are  the  initial  and  final  azimuth 
boundaries  of  the  clutter  area,  and  (/,  and  V,  are  independent,  uniformly  distributed  ran- 
dom numbers. 
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The  detected  clutter  points  are  generated  by  calling  FXCLT3  once  per  scan,  tor  each 
clutter  point  a uniform  random  number  U is  compared  to  Pr,  the  probability  of  detecting 
the  clutter  point.  If  U < Pr,  the  clutter  point  is  assumed  to  be  detected,  Gaussian  errors  are 
added  in  range  and  azimuth,  and  the  azimuth  measurement  is  corrupted  by  roll  and  pitch. 
The  range  measurement  is 


Rm  =(K  + 0.5)AK, 


(132) 


where 

K = integer  {[«,  + o/{(-  2 log  l/j)1/2  cos  2irV1l/A R} , (133) 

in  which  aR  is  the  measurement  standard  deviation  and  Ul  and  Vi  are  uniform  random 
numbers.  The  errors  in  azimuth  and  elevation  are 

ea  = og(-‘2  log  Uj)112  sin  2irVi  (134) 

and 

e*  = WfiJ2,  (135) 

where  ae  is  the  standard  deviation  of  the  azimuth  measurement,  0e  is  the  elevation  beam- 
width,  and  U„  V,,  and  W,  are  uniformly  distributed  random  numbers.  The  angles  of  roll  R 
and  pitch  P at  time  t are 


R=Rmax&m(2ntlTH+<t>R)  (136) 

and 

P = pmax  sin  (2Ttt/Tp  + <t>p),  (137) 

where  Rmax  and  Pmax  are  the  maximum  roll  and  pitch  angles,  TH  and  TP  are  the  cor- 
responding periods,  and  <t>R  and  4>p  are  uniform  phase  angles  between  0 and  2tt.  The  meas- 
ured azimuth  position  am  (in  the  deck  plane)  is  [3] 


am  =tan 


_j  sin  a 


cos  R + (cos  a sin  P + tan  e cos  P)  sin 


cos  a cos  P - tan  e sin  P 


R 

~ +ea> 
. 


(138) 


and  the  measured  elevation  position  em  is  [3] 

em  = sin-1  [cos  e cos  a sin  P + sin  e cos  P)  cos  R - cos  e sin  a sin  /2]  + ee,  (139) 

where  a » 0,  is  the  true  azimuth,  e = 0 is  the  true  elevation  of  the  clutter  point,  and  ea  and 
ee  are  the  previously  calculated  azimuth  and  elevation  errors.  Finally  the  measurements  am 
and  em  which  are  relative  to  the  deck  plane  of  the  ship  can  be  rotated  into  a system  whose 
xy  plane  is  the  plane  of  the  ocean.  These  equations  are  [3) 

, .!  [-  sin  R sin  em  + cos  R sin  am  cot  gw1  4Q 

a,n  811  L cos  P cos  am  cos  em  + D sin  P 
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and 


where 


e'm  = sin"1  [sin  P cos  am  cos  em  + D cos  P\ , 


D = cos  R sin  em  + sin  R sin  am  cos  em  . 

The  detection  time  T,  is  proportional  to  the  azimuth: 

T,  = T0  + (AT)0f/2ir , 

where  T0  is  the  time  of  the  start  of  the  scan  and  AT  is  the  scan  period. 


(141) 


(142) 


(143) 


Table  11  - FXCLT3  Variables 


Fortran  Variable 

Description 



A 

Azimuth  of  the  clutter  point  in  the  deck  plane  with  zero  measurement 
error 

AA 

True  azimuth  of  the  clutter  point  with  respect  to  the  ship  (a  in  Eqs. 

138  and  139) 

AM 

Azimuth  measurement  (between  n and  3jt) 

AT 

Measured  azimuth  (between  0 and  2ir)  ( am  in  Eq.  138) 

ATEMP 

Azimuth  measurement  (between  7r  and  37r) 

AZ 

True  azimuth  of  the  clutter  point  (0,  in  Eq.  143) 

AZOUT 

Azimuth  measurement  (am  in  Eq.  138) 

CP 

Cosine  of  the  pitch  angle 

CR 

Cosine  of  the  roll  angle 

E 

Elevation  of  the  target  in  the  deck  plane 

EL 

True  elevation  e of  the  clutter:  e = 0 

ELOUT 

Elevation  measurement  (em  in  Eq.  141) 

ET 

Elevation  measurement  ( em  in  Eq.  139) 

IC 

Number  of  fixed  clutter  points  detected  this  scan 

ISET 

Initialization  number  for  the  random-number  generator 

K 

Range  cell  of  the  measurement  (K  in  Eq.  132) 

N 

Number  of  fixed  clutter  points 

NC 

Index  of  the  clutter  point  detected 

N2 

Two  times  N 

N3 

Three  times  N 

N4 

Four  times  N 

PFAC 

Frequency  of  the  pitch  cycle 

PHASE(l) 

Phase  angle  of  the  roll  ( <t>R  in  Eq.  136) 

PHASE(2) 

Phase  angle  of  the  pitch  ( <t>P  in  Eq.  137) 

PMAX 

Maximum  pitch  angle  (Tmax  in  Eq.  137) 

PROB 

Probability  that  the  clutter  point  is  detected  (Pr  in  text  preceding 

Eq.  132) 

Table  continue* 
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Table  11  (Concluded)  — FXCLT3  Variables 


Fortran  Variable 

Description 

PTOUT 

Pitch  at  the  time  of  the  ith  detection  (P  in  Eq.  137) 

R 

True  range  of  the  clutter  point  (/?,  in  Eq.  130) 

RADIAN 

57.29578°,  the  number  of  degrees  in  a radian,  or  180/tt 

PAN 

Array  of  uniform  random  numbers  (Ui  in  Eqs.  130,  133,  and  134) 

RAY 

Rayleigh  random  number 

RC(4) 

Azimuth  beamwidth 

RC(5) 

Elevation  beamwidth  ( 0e  in  Eq.  135) 

RC(19) 

Range-cell  dimension  (A R in  Eq.  129) 

RES 

Range-cell  dimension  (A R in  Eq.  132) 

RF 

Final  range  of  the  clutter  area  (RF  in  Eq.  130) 

RFAC 

Frequency  of  the  roll  cycle 

RLOUT 

Roll  at  the  time  of  the  ith  detection  (R  in  Eq.  136) 

RMAX 

Maximum  roll  angle  (Rmax  in  Eq.  136) 

RMODE(l,5) 

Scan  period  (AT  in  Eq.  143) 

ROUT 

Range  measurement  (Rm  in  Eq.  132) 

RS 

Initial  range  of  the  clutter  area  (Rs  in  Eq.  130) 

SHIP(5) 

Ship  heading 

SIGA 

Standard  deviation  of  the  azimuth  measurement  (on  in  Eq.  134) 

SIGR 

Standard  deviation  of  the  range  measurement  (oR  in  Eq.  133) 

SOUT 

Energy  of  the  ith  detection 

SP 

Sine  of  the  pitch  angle 

SR 

Sine  of  the  roll  angle 

T 

Time  of  the  start  of  the  radar  scan  (T0  in  Eq.  143) 

TAU 

Compressed  pulsewidth  (s)  (rc  in  Eq.  129) 

TE 

Tangent  of  the  elevation  angle  (zero) 

TH 

Uniform  distributed  phase  angle 

THF 

Final  azimuth  of  the  clutter  area  ( 0F  in  Eq.  131) 

THS 

Initial  azimuth  of  the  clutter  area  (0S  in  Eq.  131) 

TIMSCN 

Scan  period  (AT  in  Eq.  143) 

TIMZB 

Time  of  the  zero-bearing  crossing  (T0  in  Eq.  143) 

TOUT 

Detection  time  (T,  in  Eq.  143) 

TWOPI 

Two  times  3.1415926536,  or  2ir 

X 

Trigometric  function  of  angles 

Y 

Trigonometric  function  of  angles 

Subroutine  INITAL 

Subroutine  INITAL  is  called  once  by  the  SURDET3D  executive  routine.  Its  purpose  is 
to  establish  constants,  to  read  ship  (radar  platform)  and  radar  data  in  kilofeet  and  seconds, 
and  to  convert  the  units  to  internal  units  (nautical  miles  and  hours)  for  use  by  other  sub- 
routines (Table  12). 
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The  location  and  heading  of  the  ship  or  radar  platform,  which  is  to  remain  stationary 
throughout  an  engagement,  and  the  antenna  height  above  sea  level  are  specified  by  four 
radar-position  input  parameters  read  into  the  SHIP  array  : 

SlIIP(l)  —x  position  coordinate  (kft), 

SI1IP(2)  — y position  coordinate  (kft), 

SH1P(3)  —2  position  coordinate  (antenna  height  above  sea  level)  (kft), 

SHIP(5)  — ship  heading  (deg). 

It  is  often  convenient  to  let  the  radar  platform  be  located  at  the  origin  (0,  0)  of  the  scenario 
coordinate  system. 

A radar  is  described  by  specifying  11  basic  parameters  followed  by  15  descriptors  for 
each  of  up  to  30  operational  radar  scan  modes  and  moving-window  detector  data.  Typical 
radar  scan  modes  include  different  elevation  beams,  long-range  search,  high-angle  low- 
energy  search,  bumthrough,  and  horizon  scan.  The  11  basic  radar  input  parameters,  which 
are  stored  in  the  RC  array,  in  NSCAN,  and  in  POLRZ,  are: 

RC(1)  — Radar  frequency  (MHz), 

RC(2)  — Antenna- pattern  indicator  (0  = pencil  beam  and  1 = cosecant-squared  beam), 
RC(3)  — Receiver  noise  (dB), 

RC(4)  — Horizontal  3-dB  beamwidth  (deg), 

RC(5)  — Vertical  3-dB  beamwidth  (deg), 

RC(6)  — One-way  antenna  gain  (dB), 

RC(7)  — One-way  sidelobe  level  (dB  down  from  peak), 

RC(8)  — Receiver  line  loss  (dB), 

RC(9)  — Transmitter  line  loss  (dB), 

NSCAN  — Number  of  scan  modes  to  be  defined  (a  number  not  to  exceed  30), 

POLRZ  — Linear  polarization  from  0°  to  90°  (0°  = horizontal  and  90°  = vertical). 


Each  radar  scan  mode  J is  described  by  the  following  15  input  parameters,  which  are 
read  into  the  RMODE,  JMODE,  SUBC,  DWL,  and  °MODE  arrays: 


RMODE(J.l) 
RMODE(J,2) 
RMODE(.J,3) 
RMODE(J,4) 
RMODE(J,5) 
RMODE(J,6) 
RMODE(J,7) 
RMODE(J,8) 
IMODK(J,l ) 
RMODE(J.ll) 
SUBC(J) 
KMODKlJ  12) 

I)WL(J) 


— lower  3 dB-point  of  the  elevation-angle  coverage  (deg), 

— upper  3 dB-point  of  the  elevation-angle  coverage  (deg), 

— peak  power  (MW), 

— pulse  length  (ps), 

— interlook  period  (time  between  scans)  (s) 

— scan  offset  (relative  to  radar  initialization)  (s), 

— instrumented  range  (n.mi.), 

— mode  dependent  loss  (dB), 

— number  of  pulses  integrated, 

— compressed- pulse  length  (ps), 

— sea-clutter  improvement  factor  (dB), 

— intermediate-frequency  bandwidth  (MHz)  (if  0 is  entered,  the  band- 
width is  set  at  1.0/(compressed-pulse  length) 

mode-dependent  frequency  increment  (MHz)  (if  DVVL(.I)  is  nonzero, 
the  effective  horizontal  and  vertical  beamwidths  and  antenna  gain  for 
this  scan  mode  are  also  affected), 
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SM  — blanking  time  (ps)  (if  0 is  entered,  the  blanking  time  is  set  at  the 
pulse  length), 

SMODE(J,2)  — rain-clutter  improvement  factor  (dB). 

These  radar  scan  modes  are  numbered  in  ascending  order  as  they  are  defined,  beginning 
with  1. 

The  moving  window  detector  is  defined  by  the  following  seven  input  parameters, 
stored  in  the  RC  array: 

RC(  1 5)  — number  of  reference  cells  on  each  side  of  the  target  cell, 

RC(16)  — clutter  correlation  coefficient, 

RC(17)  — number  of  standard  deviations  used  in  the  threshold  (determines  the  prob- 
ability of  a false  alarm), 

RC(18)  — azimuth  offset  between  beam  positions, 

RC(20)  — video  type  indicator  (0  = linear  video  and  1 = log  video), 

RC(21)  — number  of  reference  cells  used  for  the  threshold  (0  = all  cells  used,  <0  ~ 
half  with  smaller  mean  value  used,  and  >0  = half  with  larger  mean  value 
used), 

RG’(22)  — Parameters  used  to  calculate  the  threshold  (1  = mean  used  and  2 = mean  and 
variance  used). 

Subroutine  INITAL  also  performs  checks  on  the  input  data  with  the  result  that. 

• The  number  of  radar  scan  modes  is  limited  to  30, 

• The  interlook  period  for  each  mode  is  set  equal  to  10  s if  its  input  value  is  zero  or 
negative, 

• The  IF  bandwidth  for  each  mode  is  set  equal  to  the  reciprocal  of  the  compressed 
pulse  length  if  its  input  value  is  zero  or  negative,  and 

• The  blanking  time  for  each  mode  is  set  equal  to  the  pulse  length  if  its  input  value  is 

zero. 


Table  12  - INITAL  Variables 


Fortran  Variable 

Description 

DWL(J) 

Frequency  increment  for  mode  J (MHz) 

IMOI)E(J,l) 

Number  of  pulses  integrated  for  mode  J 

IMODK(J,2) 

max  (Bih  rc,  1)  rounded  to  the  nearest  integer  for  mode  J 

MILLION 

1 X 10* 

MM 

Effective  number  of  pulses  integrated 

NSC  AN 

Number  of  scan  modes 

PI 

3.1415926536,  or  7T 

PIOVER2 

One  half  of  3.1415926536,  or  tt/2 

' ** 

Table  continue*. 


NRL  REPORT  8228 


Table  12  (Concluded)  — INITAL  Variables 


Fortran  Variable 

Description 

POLRZ 

Linear  polarization  (0°  to  90°,  where  0°  = horizontal  and  90°  = vertical) 

RADIAN 

57.29578°,  the  number  of  degrees  in  a radian,  or  180/7T 

RC(1) 

Radar  frequency  f (MHz) 

RC(2) 

Indicator  of  the  antenna-pattern  function: 

0 = pencil  beam 

1 = esc2  beam 

RC(3) 

Receiver  noise 

RC(4) 

Horizontal  3-dB  beamwidth  (deg  to  rad) 

RC(5) 

Vertical  3-dB  beamwidth  (deg  to  rad) 

RC(6) 

One-way  antenna  gain 

RC(7) 

One-wa  sidelobe  level 

RC(8) 

Receivei  losses 

RC(9) 

Transmitter  losses 

RC(10) 

Boltzmann’s  constant  times  the  system  temperature,  or  kT  (J) 

RC(15) 

Number  of  reference  cells  on  each  side  of  the  target  cell  used  in  the 
moving- window  detector 

RC(16) 

Clutter  correlation  coefficient 

RC(17) 

Number  of  standard  deviations  used  in  the  detection  threshold 

RC(18) 

Azimuth  offset  between  beam  positions  (deg  to  rad) 

KC(  20) 

Detector  video  type. 

0 = linear  video 

1 = log  video 

RC(21) 

Number  of  reference  cells  used  to  calculate  the  threshold  . 

0 = all  cells  used 

<0  = half  with  smaller  mean  value  used 
>0  = half  with  larger  mean  value  used 

RC(22) 

Parameter  to  denote  whether  the  mean  (RC(22)  = 1)  or  the  mean  and 
variance  (RC(22)  = 2)  should  be  used  to  calculate  the  threshold 

RMODE(J.l) 

Lower  3-dB  point  of  the  elevation -angle  coverage  for  mode  J (deg) 

RMODE(J,2) 

Upper  3-dB  point  of  the  elevation -angle  coverage  for  mode  J (deg) 

RMODE(J,3) 

Peak  power  for  mode  J (MW  to  W) 

RMODE(J,4) 

Pulse  length  for  mode  J (ps  to  s) 

RMODE(J,5) 

Interlook  period  for  mode  J (s  to  h) 

RMODE(J,6) 

Scan  offset  for  mode  J (s  to  h) 

RMODE(J,7) 

Instrumented  range  for  mode  J (n.mi.) 

RMODE(J,8) 

Mode-dependent  loss  for  mode  J 

RMODE(J,H) 

Compressed-pulse  length  for  mode  J (ps) 

RMODE(J,12) 

Intermediate- frequency  bandwidth  for  mode  J (MHz  to  Hz) 

SHIP(l) 

x coordinate  of  the  ship  position  (kft  to  n.mi.) 

SHIP(2) 

y coordinate  of  the  ship  position  (kft  to  n.mi.) 

SHIP(3) 

Antenna  height  (kft  to  n.mi.) 

SHIP(5) 

Ship  heading  (deg  to  rad) 

SM 

Blanking  time  used  to  calculate  SMODE(J.l)  (ps) 

SMODE(J.l) 

Blanking  range  for  mode  J (n.mi.) 

SMODE(J,2) 

Rain-clutter  improvement  factor  for  mode  J 

SUBC(J) 

Sea-clutter  improvement  factor  for  mode  J 

TAU(J) 

Compressed-pulse  length  for  mode  J,  or  tc  (s) 

TWOPI 

Two  times  3.1415926536,  or  27T 
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Subroutine  INIT3D 

The  INIT3D  subroutine  is  called  at  the  beginning  of  each  scan  of  the  3D  radar  by  the 
executive  routine.  The  main  purpose  of  the  routine  is  to  generate  an  initial  azimuth  beam 
position  for  the  start  of  the  first  elevation  scan.  Successive  elevation  scans  are  then  offset  in 
azimuth  by  AZBBP,  an  input  variable  (Table  13).  The  initial  azimuth  AZINIT  is  uniformly 
distributed  between  0 and  AZBBP.  A secondary  purpose  of  this  routine  is  to  zero  three 
arrays:  NDET3(I,J),  the  number  of  detections  of  the  ith  target  by  the;th  mode;  MER3(I), 
an  indicator  of  merging  problems  for  the  ith  target;  and  IKEY(I),  an  indicator  that  the 
fluctuating  statistics  have  already  been  generated  for  the  appropriate  Swerling  target  models, 
for  the  ith  target. 


Table  13  - INIT3D  Variables 


Fortran  Variable 

Description 

AZBBP 

Change  in  azimuth  between  successive  elevation  scans 

AZINIT 

Azimuth  of  the  initial  elevation  scan 

IKEY(I) 

Indicator  that  target  fluctuation  statistics  have  (IKEY(I)  = 1)  or  have 
not  (IKEY(I)  = 0)  been  generated  for  the  ith  target 

MER3(1) 

Indicator  of  an  interfering- target  problem  (a  target  within  three 
range  cells  and  one  azimuth  beamwidth  of  the  ith  target)  for  the 
ith  target: 

0 = no  merging  problem 
-1  = merging  problem  and  target  detected 
-2  = merging  problem  and  target  not  detected. 

N 

Number  of  targets 

NDET3(I,J) 

Number  of  detections  of  the  ith  target  by  the  ;th  mode 

NSCAN 

Number  of  radar  modes 

i 


Subroutine  MRDT3D 

Subroutine  MRDT3D  is  called  once  at  the  end  of  the  radar  scan  after  all  the  detections 
for  each  target  and  radar  mode  have  been  made.  The  purpose  of  the  routine  is  to  merge 
adjacent  detections  from  the  3D  radar  and  estimate  the  range,  azimuth,  and  elevation  of  the 
centroided  detection.  The  number  of  detections,  the  range,  the  azimuth,  the  elevation,  the 
signal  power  of  the  centroided  detection,  and  the  detection  time  are  stored  in  NDET, 
RANGE,  AZ,  ELEV,  SNDET,  and  TIME  respectively  (Table  14). 

The  merging  is  accomplished  by  examining  all  the  detections  for  each  target.  If  there 
are  no  detections  of  target  KTAR  by  any  mode,  the  number  of  detections  NDET(KTAR)  is 
set  equal  to  0,  and  the  indicator  of  interfering  targets  MER(KTAR)  and  the  detection  time 
TIME(KTAR)  are  set  equal  to  MER3(KTAR)  and  TIME3(KTAR)  respectively. 

If  there  are  detections  of  target  KTAR,  the  last  detection  of  the  lowest  (index)  radar 
mode  is  eliminated,  and  its  parameters  (range,  azimuth,  elevation,  and  signal  power)  are 
stored  in  DETPAR(l.l),  DETPAR(1,2),  DETPAR(1,3),  and  DETPAR(1,4)  respectively. 

The  number  of  adjacent  targets  K is  set  equal  to  1,  and  KSTART,  the  number  of  adjacent 
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detections  of  each  target  and  radar  mode  is  set  equal  to  K.  Then  each  ith  detection  of 
target  KTAR  by  the jth  mode  is  examined  to  see  whether  it  is  adjacent  to  any  of  the  pre- 
vious K adjacent  detections;  this  is  accomplished  by  calling  subroutine  ADJDKT.  At  the 
start  of  the  jth  mode,  the  nonadjacent  detection  counter  NKWJJ  is  initialized  to  0,  and  at 
the  end  of  examining  all  detections  for  the  jth  mode,  NDET(KTAR.J)  is  set  equal  to 
NEWJJ.  Thus  at  the  end  of  the  jth  mode  the  NKWJJ  nonadjacent  detections  are  stored  in 
the  first  NEWJJ  locations  of  the  detection  arrays  associated  with  the  Jth  mode.  The  detec- 
tions of  target  KTAR  by  all  radar  modes  are  examined  in  this  way.  Then  if  target  KTAR  has 
an  interfering-target  problem  (indicated  by  MER3(KTAR)  = -1),  all  other  targets  LTAR 
with  interfering-target  problems  (MKR3(LTAR)  = -1)  are  also  examined  to  find  other 
adjacent  detections.  After  all  such  targets  have  been  examined,  KSTART  is  compared  to  K. 
If  K is  greater  than  KSTART,  KSTART  is  set  equal  to  K,  and  the  remaining  detections  for 
all  targets  (including  target  KTAR)  are  reexamined  to  find  possible  new  adjacent  detections. 
This  procedure  is  repeated  until  K = KSTART.  Then  the  target  parameters  of  the  centroided 
detection  of  target  KTAR  are  estimated  using  the  K adjacent  detections. 

The  estimates  of  range  R,  azimuth  A,  elevation  E,  and  signal  power  S are 


K=  £ SkRk/'t  Sfc. 


s*' 


E-  L w £ 

k * ] / h » 1 


S = max  {S, , S2 SK] , (147) 

where  Rk,Ah,Ek,  and  Sk  are  the  range,  azimuth,  elevation,  and  signal  power  respectively 
associated  with  the  feth  adjacent  detection.  If  E is  less  than  the  radar’s  elevation  3-dB  beam- 
width,  the  estimate  can  be  corrupted  by  multipath  propagation,  so  the  following  estimate  of 
elevation  is  used . 


where 


*'  = <£min  +£max>/2. 


^min  r min  {£1  * E2’  -» 


Emax  =max  {^1  ,E2,-,E/(}- 
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The  centroided  estimates  of  range,  azimuth,  elevation,  and  signal  power  are  stored  in 
RANGE,  AZ,  ELEV,  and  SNDET. 

After  the  centroided  estimates  are  made,  target  KTAR  is  reexamined  to  determine 
whether  there  are  any  unused  detections.  If  there  are  any  unused  detections,  the  last  unused 
detection  in  the  lowest  radar  mode  is  used  as  a starting  point,  and  the  entire  procedure  is 
repeated.  The  maximum  number  of  centroided  detections  for  any  target  is  limited  to  three. 
After  all  detections  of  target  KTAR  are  used,  target  KTAR  + 1 is  examined. 


Table  14  — MRDT3D  Variables 
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Table  14  (Concluded)  — MRDT3D  Variables 


Fortran  Variable 

Description 

RANGE(KTAR.l) 

Range  of  the  ith  centroided  detection  of  target  KTAR  (R  in 

Eq. 144) 

RANGE3(KTAR,I,J) 

Range  of  the  ith  detection  of  target  KTAR  by  theyth  radar 
mode 

RES 

Range-cell  dimension 

RMODE(J.l) 

Elevation  angle  of  the  yth  mode 

SNDET(KTAR.I) 

Signal  power  of  the  ith  centroided  detection  of  target  KTAR 
(S  in  Eq.  147) 

SNDET3(KTAR,I,J) 

Signal  power  of  the  ith  detection  of  target  KTAR  by  theyth 
radar  mode 

TH3DB 

The  antenna  3-dB  azimuth  beamwidth 

TIME(l) 

Time  when  the  ith  target  is  detected 

TIME3(1) 

Time  when  the  ith  target  is  detected 

Subroutine  STAB3 

Subroutine  STAB3  generates  a new  azimuth  and  elevation  position  for  each  target 
detection  because  the  radar  is  unstabilized.  The  routine  is  initialized  by  calling  the  entry 
point  STBINT.  The  initialization  section  first  reads  four  input  parameters  with  a 4F8.2 
format  (Table  15): 

RMAX  — maximum  roll  angle  (deg), 

PMAX  — maximum  pitch  angle  (deg), 

RPER  — roll  period  (s), 

PPER  — pitch  period  (s). 

Next,  the  angles  are  converted  to  radians,  and  the  random-number  generator  is  used  to 
generate  uniform  phase  angles  for  the  roll  and  pitch  cycles. 

The  modified  azimuth  and  elevation  positions  are  generated  by  calling  STAB3  once 
i per  scan  from  the  executive  routine  (after  all  detections  have  been  obtained).  The  roll  R and 

pitch  P angles  at  time  t are 

R = Rm  sin  (2irtlTR  + <t>R ) (151) 

y 

I 

and 

j P=Pm  sin(27rt/7>  + 0P),  (152) 

where  Rm  and  Pm  are  the  maximum  roll  and  pitch  angles,  TR  and  TP  are  the  corresponding 
periods,  and  <t>R  and  <t>f,  are  uniform  phase  angles  between  0 and  2 it.  The  measured  azimuth 
position  am  (in  the  deck  plane)  is  (3] 

[ i 


| 

I 

I 

| 
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am  = tan 


- 1 I sln  a cos  A (cos  a sin  P + tan  e cos  P)  sin  R 
cos  a cos  P - tan  e sin  P 


+ e„ 


(153) 


anti  the  measured  elevation  position  em  is  [3| 


em  = sin'1  ((cos  e cos  a sin  P + sin  e cos  P)  cos  R - cos  e sin  a sin  R ) + te,  (154) 


when-  a and  e are  the  true  azimuth  (re  ship  heading)  and  elevation  angles  of  the  target  and  ea 
and  ee  are  the  previously  calculated  azimuth  and  elevation  errors. 

If  one  measured  only  am  and  not  em  , one  would  have  large  azimuth  errors.  For 
instance,  if  R = 10°,  P = 5'",  and  e = 15°,  the  azimuth  error  can  be  as  large  as  5°  even 
though  oa  = 0.5°.  However,  if  em  is  measured  and  R and  P are  known,  the  measurements 
am  and  em  , which  are  relative  to  the  deck  plane  of  the  ship,  can  be  rotated  into  a system 
whose  xy  plane  is  the  plane  of  the  ocean.  These  equations  are  (3] 


a'  = tan 


I 


- sin  R sin  em  + cos  R sin  am  cos  em 


cos  P cos  a. 


+ D sin  P 


and 


e'm  = sin-1  (sinPcosam  cos  em  +DcosP), 


where 


D - cos  R sin  em  + sin  R sin  am  cos  em  . 


(155) 


(156) 

(157) 


It  is  assumed  that  the  radar  makes  the  corrections  indicated  by  Eqs.  155  and  156;  thus  Eqs. 
155  and  1 56  are  used  as  the  measured  azimuth  and  elevation  respectively. 


Table  15  - STAB3  Variables 


Fortran  Variable 


Description 


A 

AA 

AM 

AT 

ATEMP 

AZ 


Azimuth  of  the  target  in  the  deck  plane  with  zero  measured  error 
True  azimuth  of  target  ( a in  Eqs.  153  and  154) 

Corrected  azimuth  measurement  (between  n and  3ir) 

Azimuth  measurement  (between  0 and  2n)  (am  in  Eq.  153) 
Azimuth  measurement  (between  ir  and  3zr) 

Corrected  azimuth  measurement  (between  0 and  27r)  (a'm  in 


CP 

CR 

E 


EL 


Eq. 155) 

Cosine  of  the  pitch  angle 
Cosine  of  the  roll  angle 

Elevation  of  the  target  in  the  deck  plane  with  zero  measurement 
error 

True  elevation  of  the  target  (e  in  Eqs.  153  and  154) 
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Table  15  (Concluded)  — STAB3  Variables 


Fortran  Variable 

Description 

ELEV 

Corrected  elevation  measurement  (e'm  in  Eq.  156) 

ET 

Elevation  measurement  (em  in  Eq.  154) 

K 

Number  of  detections  per  target 

NDET(I) 

Number  of  detections  of  the  ith  target 

NTARG 

Number  of  targets 

PFAC 

Frequency  of  the  pitch  cycle 

PHASE(l) 

Phase  angle  of  the  roll  (0R  in  Eq.  151) 

PHASE(2) 

Phase  angle  of  the  pitch  (<t>p  in  Eq.  152) 

PI 

3.1415926536,  or  it 

PITCH 

Pitch  angle  (P  in  Eq.  152) 

PMAX 

Maximum  pitch  angle  (Pm  in  Eq.  152) 

PPER 

Period  of  the  pitch  cycle  (Tp  in  Eq.  152) 

RADIAN 

57.29578°,  the  number  of  degrees  in  a radian,  or  180/7T 

RFAC 

Frequency  of  the  roll  cycle 

RMAX 

Maximum  roll  angle  (Rm  in  Eq.  151) 

ROLL 

Roll  angle  ( R in  Eq.  151) 

RPER 

Period  of  the  roll  angle  (TR  in  Eq.  151) 

SHIP(5) 

Heading  of  the  ship 

SP 

Sine  of  the  pitch  angle 

SR 

Sine  of  the  roll  angle 

TE 

Tangent  of  the  target  elevation 

TIME(I) 

Time  when  the  ith  target  is  detected 

TRGPOS(I,5) 

Azimuth  of  the  target 

TRGPOS(I,6) 

Elevation  of  the  target 

TWOPI 

Two  times  3.1415926536,  or  2ir 

X 

Trigonometric  function  of  angles 

Y 

Trigonometric  function  of  angles 

Subroutine  VRCLT3 

Subroutine  VRCLT3  generates  scan-to-scan  independent  clutter  points  in  specified 
areas  and  is  called  once  per  scan  by  the  executive  routine  after  FXCLT3  has  been  called. 
The  routine  is  initialized  by  calling  the  entry  point  VCINIT.  The  initialization  section  first 
reads  two  parameters  with  a 218  format  (Table  16)  : 

ISE’T  — initialization  number  for  the  random-number  generator, 

NREG  — number  of  clutter  regions, 

Next  for  each  clutter  region  (maximum  of  five  regions)  seven  parameters  are  specified 
according  to  a 7F8.2  format: 

FN  — average  number  of  detections  in  the  clutter  region, 

RS  — initial  range  of  the  clutter  region  (kft), 

RF  — final  range  of  the  clutter  region  (kft), 
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THS  — initial  azimuth  of  the  clutter  region  (kft), 

THF  — final  azimuth  of  the  clutter  region  (kft), 

ELS  — initial  elevation  of  the  clutter  region  (kft), 

ELF  final  elevation  of  the  clutter  region  (kft). 

The  input  parameters  are  converted  to  nautical  miles  and  radians  for  internal  use,  and  the 
inverse  of  the  density  per  unit  azimuth  F:  is  generated  by 

Fj~  (Op  - Os)INj,  (158) 

where  0S  and  Op  are  the  initial  and  final  azimuth  boundaries  of  the  ith  clutter  region  and  AT, 
is  the  average  number  of  detections  in  the  ith  region. 

The  detected  clutter  points  are  generated  by  calling  VRCLT3  once  per  scan.  The 
clutter  regions  are  processed  one  at  a time.  For  each  clutter  region  the  azimuth  interval  A, 
between  detections  is  generated  by  A,  = - Fi  log  (7,,  where  Ui  is  a uniformly  distributed 
random  number.  If 


£a j<(0p-6a),  (159) 

y-i 

the  new  detection  is  accepted.  Its  measured  azimuth,  range,  and  elevation  are 


0 = es  + 2]  A;.  (160) 

J- 1 


K-(K  + 0.5)AR,  (161) 

and 

E = Es  + (Ef  - Es)Wj,  (162) 

where  A R is  the  range-cell  dimension,  Ep  is  the  final  elevation  of  the  clutter  region,  Es  is 
the  initial  elevation  of  the  clutter  region,  and 

K = integer  {[flg+(fy  -R^V^/AR) , (163) 

in  which  Rs  and  Rp  are  the  initial  and  final  range  boundaries  of  the  ith  clutter  region  and 
V t and  W : are  uniformly  distributed  random  numbers.  The  associated  detection  time  is 

Ti  = 7’0  + (AT)0/2n,  (164) 

where  7'()  is  the  time  of  the  zero- bearing  crossing  and  AT  is  the  scan  period.  The  roll  and 
pitch  angles  at  time  t are 


roll  = Rm  sin  (2ittlTK  + <t>f{ ) 


(165) 


72 


NHL  REPORT  8228 


and 

pitch  = Pm  sin  (2 irt/Tp  + <t>p),  (166) 

where  Rm  and  Pm  are  the  maximum  roll  and  pitch  angles,  TH  and  TP  are  the  corresponding 
periods,  and  ipp  and  <pP  are  uniform  phase  angles  between  0 and  2n. 

On  the  other  hand,  if 


£ A j>(0F-0s),  (167) 

then  the  new  detection  is  out  of  the  present  clutter  region  and  the  next  clutter  region  is 
considered. 


Table  16  - VRCLT3  Variables 


Fortran  Variable 

Description 

A 

Azimuth  of  the  detection  (0  in  Eq.  160) 

AZOUT 

Azimuth  of  the  detection  (output)  ( 0 in  Eq.  160) 

ELF 

Final  elevation  of  the  clutter  region  (EF  in  Eq.  162) 

ELOUT 

Elevation  of  the  detection  (E  in  Eq.  162) 

ELS 

Initial  elevation  of  the  clutter  region  ( Es  in  Eq.  162) 

FLAM 

Inverse  azimuth  density  of  the  clutter  points  in  the  ith  clutter  region 

(Ft  in  Eq.  158) 

FN 

Average  number  of  detections  in  the  region  (Af,  in  Eq.  158) 

1C 

Number  of  fixed  clutter  points  detected 

IRAN 

Random-number  counter 

ISET 

Initialization  number  for  the  random- number  generator 

IV 

Total  number  of  clutter  detections  (fixed  plus  variable) 

K 

Range-cell  number  {K  in  Eqs.  161  and  163) 

NREG 

Number  of  regions  (maximum  of  five) 

PFAC 

Frequency  of  the  pitch  cycle 

PHASE)  1) 

Phase  angle  of  the  roll  ( <t>H  in  Eq.  165) 

PHASE(2) 

Phase  angle  of  the  pitch  (<t>P  in  Eq.  166) 

PTOUT(l) 

Pitch  angle  at  the  time  of  the  ith  detection 

PMAX 

Maximum  pitch  angle  ( Pm  in  Eq.  166) 

RADIAN 

57.29578°,  the  number  of  degrees  in  a radian,  or  180/7T 

RAN 

Array  of  random  numbers  (/,,  V(,  and  IV, 

RC(19) 

Range-cell  dimension  (AR  in  Eq.  161) 

RES 

Range-cell  dimension  ( AR  in  Eq.  161) 

RF 

Final  range  of  the  clutter  region  ( Rp  in  Eq.  163) 

RFAC 

Frequency  of  the  roll  cycle 

RLOUT(I) 

Roll  angle  at  the  time  of  the  ith  detection 

RMAX 

Maximum  roll  angle  (Rm  in  Eq.  165) 

RMODE(l,5) 

Scan  period  (AT  in  Eq.  164) 
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Table  16  (Concluded)  - VRCLT3  Variables 


Fortran  Variable 

Description 

ROUT(I) 

Range  of  the  rth  detection  ( R in  Eq.  161) 

RS 

Initial  range  of  the  clutter  region  (Rs  in  Eq.  163) 

SOUT(I) 

Power  of  the  ith  detection 

T 

Time  of  the  zero- bearing  crossing  (T0  in  Eq.  164) 

THF 

Final  azimuth  of  the  clutter  region  ( 0F  in  Eq.  158) 

THS 

Initial  azimuth  of  the  clutter  region  (0S  in  Eq.  158) 

TIMSCN 

Scan  period  (AT  in  Eq.  164) 

TIMZB 

Time  of  the  zero- bearing  crossing  (T0  in  Eq.  164) 

TOUT(I) 

Time  of  the  ith  detection 

TWOPI 

Two  times  3.1415926536,  or  27r 

i 

i 

; 

i 

! 


i 


ROUTINES  COMMON  TO  BOTH  VERSIONS  OF  SURDET 
Function  BEAM 

Function  BEAM  is  used  by  subroutines  JAM,  SIGNAL,  and  GAIN  to  determine  the 
normalized  beam-pattern  factor.  The  function  can  handle  cosecant-squared  and  pencil- 
beam  patterns. 

The  function  is  called  with  four  calling  parameters  (Table  17):  ALPHA,  BETA, 
GAMMA,  and  KEY1.  ALPHA  is  the  angle  between  the  pencil- beam  boresight  and  the  target, 
which  in  the  orientation  shown  in  Fig.  5 is  positive  clockwise  (Fig.  6).  For  cosecant-squared 
beams  ALPHA  is  measured  from  the  center  of  the  main  beam.  BETA  is  the  3-dB  beam- 
width.  GAMMA  is  an  indicator  that  specifies  whether  the  beam-pattern  factor  is  being 
determined  horizontally  or  vertically,  and  KEY1  is  also  an  indicator  that  identifies  the  beam 
type. 
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Function  BEAM  uses  a (sin  x)/x  curve  to  represent  the  horizontal  and 
patterns  of  the  pencil  beam  and  the  horizontal  beam  pattern  of  the  cosere" 

The  vertical  beam  pattern  of  the  cosecant-squared  beam  is  modeled  by  a i 

(sin  x)/x  representation  and  an  extended  fan  above  the  main  beam  in 

gain  will  vary  with  elevation  angle  according  to  R2/h2,  where  R is  the  -.bee  : t 

target  and  h is  the  height  shown  in  Fig.  5b. 

The  first  step  in  the  calculation  is  to  normalize  the  angle  o;  that,  is,  the  beam  pattern  is 
assumed  to  be  a (sin  Kot)lna  curve  with  a 3-dB  beam  width  given  by  (?,  so  that  the  normalized 
angle  0 on  a (sin  x)/x  curve  that  corresponds  to  a is 


where  2.78  rad  is  the  3-dB  beamwidth  on  a (sin  x)/x  curve. 

The  next  step  in  the  calculation  depends  on  the  beam  type  and  its  orientation.  If  the 
beam  is  a pencil  beam  or  if  the  horizontal  pattern  factor  is  being  determined  for  a cosecant 
squared  beam,  then  the  beam-pattern  factor  ( power)  is 


- {¥)' 


unless  10 1 < 10  6 or  10 1 > n,  in  which  cases 


f = 1.0,  10  I CIO-6 


f~fSL<  l»l  >». 


(170a) 


(170b) 


where  fs L is  the  input  sidelobe  level. 

When  the  beam  is  a cosecant-squared  beam  and  the  vertical  beam  pattern  factor  is  be- 
ing determined,  the  calculation  is  more  complicated.  The  main  beam  is  pointed  at  some 
angle  K above  the  horizon  (Fig.  5).  This  can  be  expressed  as  a function  of  the  3-dB  beam- 
width  (3  and  a constant  k : 


The  location  of  the  point  on  the  main  beam  at  which  the  tangent  to  the  beam  is  horizontal 
determines  the  start  of  the  cosecant-squared  portion  of  the  beam.  If  the  main  beam  can  hr' 
represented  by  a (sin  kx)/kx  curve,  this  point  is  found  as  follows:  A point  on  the  curve  with 
elevation  angle  0 has  a radius  r or  normalized  power  magnitude  given  by 
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/sin  p0\2 
= \ pO  ) ' 


where 


0 = (j)  - E. 

Expressing  r in  rectangular  coordinates  and  differentiating  with  respect  to  x yields 


+ yy'  „ sin  pO  fi 

~ '2p  ~w  [ 


cos  pO  sin  pO 
. p0  ’ (pO)2. 


where 


0 = tan' 


»■ ^ — f-  - 

1 + y2/*2  \*  x2) 


xy  -y 


At  the  angle  0h  where  the  cosecant-squared  beam  pattern  starts,  y'  = 0.  Combining  Eqs. 
175  and  177  and  inserting  y'  ■ 0 gives 


x sin  pOh  cos  pO  h sin  pOh 

r ='2p  pOh  ~pOh  ‘ 


1 _y 


sin  pOh  cos  pOh  sin  pOh~ 

r ” - 2p  — - — — - tan  <t> h , 

p0h  P°h  ( P0h )2 


L-;  tv. 

ft-’""'  ’ • 
jfc  ■■■  V 
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where  <ph  is  the  elevation  angle  corresponding  to  0h.  Substituting  the  expression  for  r from 
Eq.  172  gives 


: ■ 

fi 


0 = 1 + 2p  |cot  pOh  - — j tan  . 

It  is  reasonable  to  assume  that  <ht  and  0h  are  small.  With  this  assumption  it  can  be 
shown  that 


(179) 


and 


This  reduces  Eq.  179  to 


1 ~P°h 


tan  <(>h  *=  <t>h . 


2P2<t>hOh 


= 1 


or,  by  substituting  Eq.  174, 


2 P2<M4fc  ~E)  = 3, 


which  can  be  rearranged  into  the  quadratic  form 


with  the  root 


Ol-OhE-  ~ =0 

2p2 


. E + (E2  + 6/p2)m 
<K  = s 


By  use  of  Eqs.  171  and  173  this  can  be  expressed  as  a function  of  0: 

<t>h  = 


+ 

lk2fl2 

+ 6/32  \W21 

2 

\ 4 

(2.78)2/ 

= 7 (fe  + (fe2  + 3.1),/2]. 
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(180) 


(181) 


(182) 


(183) 


(184) 


(185) 


(186) 
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i ,i.'  normalized  beam-pattern  factor  (power)  for  the  vertical  pattern  of  the  cosecant- 
quar.d  beam  i an  now  be  determined  according  to  the  position  of  the  target.  If  the  target 
•legation  is  above  </>h,  the  antenna  beam-pattern  factor  will  vary  with  elevation  according 
to  the  square  of  the  cosecant: 

m=  — , (187) 

CSC2  <t> 

a hen  l\  is  readily  found  to  be 

K = Mh)  csc2^,  (188) 

so  that 

CSC2  4 

f(0)  = f(<^)  — • (189) 

CSC2  0 


Table  17  — BEAM  Variables 


Fortran  Variable 

Description 

ALPHA 

Angle  between  the  boresight  and  the  target  (rad)  (a  in  Eq.  168) 

BETA 

The  3 dB  beamwidth  (rad)  (0  in  Eq.  168) 

DBDOWN 

Fir<  t-sidelobe  power-level  ratio 

GAMMA 

Beam  pattern  indicator: 

0 = pencil  beam 

1 = esc2  beam 

HOFK 

1 

Elevation  angle  at  which  the  slope  of  the  (sin  px)lpx  beam  pattern 
equals  zero  (rad)  (<t>h  in  Eq.  178) 

1 KKYl 

j 

Beam- pattern-factor  indicator: 

0 = horizontal 

1 = vertical 

PBBS 

The  elevation  of  the  boresight  of  the  main- beam  portion  of  the  esc2 
beam  (rad)  ( E in  Eq..l71) 

RMOI.)E(J,2) 

Upper  elevation  limit  for  mode  J (rad)  (Eu  in  Fig.  5) 

S1NC 

Normalized  beam-pattern  factor  (power)  (fin  Eqs.  169, 170,  and 

191) 

THETA 

Normalized  angular  position  of  the  target  (rad)  ( 0 in  Eqs.  168, 174, 
and  176) 

'i  tlETBK 

The  3-dB  beamwidth  (rad)  of  the  main-beam  portion  of  the 
cosequent-squared  beam  multiplied  by  a constant  k that  sets 
THETBK  equal  to  twice  the  elevation  of  the  pencil- beam  bore- 
sight 

■i»  ilion  is  less  than  or  equal  to  0), , 


* 
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f(<t>)  = 


(190) 


In  summary,  the  beam-pattern  factor  for  the  vertical  pattern  of  the  cosecant-squared 
beam  can  be  expressed  as  follows: 


'(</>)  = fjsin 


2.78 


2.78  \ 

m-wmi]/  m-wmj  ’ 


2.78  esc2  <j>h 


2.78  esc2 


= M sin 


mh  -m2))  esc2  <p]/  pi<j>h  - m2))  esc2  <t>t 


= first  sidelobe  level,  <p>Eu. 


(191a) 


Eu><t>><t>h 


(191b) 

(191c) 


This  completes  the  computation,  and  control  of  the  program  is  returned  to  the  calling 
subroutine. 


Subroutine  CLTSIG 

Subroutine  CLTSIG  is  called  by  subroutine  JAM  to  evaluate  the  normalized  reflectivity 
u0,  which  corresponds  to  given  values  of  the  radio  frequency  (Fortran  variable  XFRE,  as 
listed  in  Table  18),  the  Beaufort  sea  state  (XBEAU),  the  incident  angle  (XANG),  and  the 
angle  of  linear  polarization.  The  normalized  reflectivity  represents  the  observed  mean  radar 
cross  section  from  each  unit  of  area  in  the  clutter  cell;  that  is,  if  o0  = - 20  dB,  each  square 
meter  in  the  clutter  cell  will  contribute  a radar  cross  section  that  is  20  dB  below  a target 
cross  section  of  1 m2. 

Values  of  a0  for  various  radio  frequencies  /,  sea  states «/,  and  incidence  angles  K are 
stored  in  two  three-dimensional  arrays:  SlGOH(I,J,K)  and  SIGOV(I,J,K),  corresponding  to 
horizontal  and  vertical  polarization  respectively.  These  values  are  based  on  tables  that  were 
presented  in  Ref.  4 and  have  been  extended  for  greater  utility.  The  values  for  the  various 
parameters  are  as  follows. 

Frequency  (MHz)  - 500,  1250,  3000,  5600,  9000,  17,000,  35,000, 

Beaufort  scale  — 1 , 2,  3,  4,  5,  6, 

Incident  angle  (deg)  — 0.1,  0.3, 1,  3, 10 

In  its  current  configuration,  subroutine  CLTSIG  considers  only  linearly  polarized  radars. 
For  a given  set  of  parameters  values  of  a0  are  drawn  from  the  S1GOH  and  SIGOV  arrays  by 
a linear  interpolation  scheme.  These  values  of  the  normalized  reflectivity  are  for  horizontal 
and  vertical  polarization  respectively.  The  normalized  reflectivity  for  a given  linear  polariza- 
tion angle  0p  is 

MV*  l(o0H  tos  0p)2  +(o0v  sinOp)2l1/z.  (192) 

This  value  of  o0  is  returned  to  subroutine  JAM,  thereby  completing  the  process. 
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Table  18  - CLTSIG  Variables 
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where  //^3  is  the  significant  wave  height  and  oh  is  the  standard  deviation.  The  significant 
wave  height  is  related  to  the  windspeed  at  the  sea  surface  V by 

/71/3  = 0.02667  V2,  (194) 

where  V is  in  meters  per  second  and  //1/3  is  in  meters. 

Pierson  [4]  has  shown  that  the  windspeed  at  10  meters  above  the  surface  is  related  to 
the  speed  at  greater  heights  by 

v10  = VH(10///)°09682,  (195) 

where  VH  is  the  windspeed  as  measured  at  height//  above  the  sea.  Eliminating  //1/3  by  com- 
bining Eqs.  193  and  194  and  substituting  for  V the  expression  for  VJ0  from  Eq.  195  yields 

oh  = 0.00667  V%(H/ 10)-°  19364 . (196) 


Table  19  - ENVIRN  Variables 


Fortran  Variable  Description 
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Tab'®  20  — GAIN  Variables 


Fortran  Variable 

Description 

ALFV 

Angle  between  the  direct  ray  and  the  reflected  ray  at  the  antenna 
(rad)  (av  in  Eq.  197) 

FH 

Horizontal  beam-pattern  factor  (power)  ( fpH  in  Eq.  198) 

FHV(K) 

Pattern  function  (total)  for  target  K 

FV 

Vertical  beam-pattern  factor  (power)  ( fpv  in  Eq.  198) 

GAINR 

Ratio  of  the  field  strength  in  the  direction  of  a specified  ray  to 
the  field  strength  in  the  beam-maximum  direction  (f((5)  in 

Eq. 199) 

IKEY 

Indicator  in  the  calling  sequence: 

0 = direct  ray 

1 = reflected  ray 

ITAR 

Target  under  consideration 

JTAR 

Target  under  detection 

OAH 

Horizontal  angle  between  the  boresight  and  the  target  (rad) 

OAV 

Vertical  angle  between  the  boresight  and  the  target  (rad) 

RC(2) 

Beam-pattern  indicator: 

0 = pencil  beam 

1 = esc2  beam 

RC(4) 

Horizontal  3-dB  beamwidth  (rad) 

RC(5) 

Vertical  3-dB  Ijeam width  (rad) 

RC(7) 

One-way  sidelobe  level  (dB) 

SRTAR 

Slant  range  from  the  target  to  the  reflection  point  (m)  (R2  in 

Eq. 197) 

TRGPOS0.4) 

Slant  range  of  target  / ( m ) ( R in  Eq . 1 97 ) 

TRGPOS(I,5) 

Azimuth  of  target  / (rad) 

TRGPOS(I,6) 

Elevation  of  target  1 with  respect  to  the  horizon  (rad) 

TARGET  ITAR 
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This  information  is  used  to  calculate  the  vertical  angle  between  the  boresight  and 
the  target.  For  the  cosecant-squared  beam  this  amounts  to  the  angular  difference  be- 
tween the  pencil-beam  boresight  and  the  target.  For  the  pencil  beam  the  vertical  angle 
between  the  target  under  detection  (JTAR)  and  the  target  under  consideration  (ITAR) 
is  determined.  This  information  is  used  by  function  BEAM  to  calculate  the  vertical 
beam -pattern  factor  fPV,  which  is  used  in  tum  to  calculate  the  total  beam -pattern 
factor  from 

fp  = fpH  fpv  (198) 

and  the  field  strength  ratio  from 

fUS)  = flP12.  (199) 

If  this  value  exceeds  the  sidelobe  level,  it  is  retained;  otherwise  the  field -strength  ratio  is 
assigned  the  value  of  the  sidelobe  level.  The  sidelobe  level  is  also  assigned  to  the  field- 
strength  ratio  if  the  target  is  not  within  the  beam  width  in  the  pencil-beam  case. 

When  the  calculation  of  the  field-strength  ratio  has  been  completed,  control  of  the 
program  is  returned  to  the  calling  subroutine. 


Subroutine  JAM 


Subroutine  JAM  is  called  by  subroutine  SIGNAL  through  its  entry  NOISE  to  deter- 
mine the  magnitudes  of  the  received  jamming  energy  EJ  and  sea  clutter  energy  EC,  while  the 
radar  is  scanning  target  JTAR  (Table  21).  Targets  with  jamming  capability  (self-screening) 
as  well  as  any  standoff  jammers  are  treated. 


After  initializing  the  required  variables,  the  subroutine  considers  the  jamming  energy 
transmitted  from  each  jammer.  For  each  jammer  J a beam-pattern  factor  must  be  deter- 
mined to  account  for  the  jammer’s  being  off  beam  center.  If  the  antenna  beam  pattern  has 
been  designated  as  a pencil  beam,  the  antenna  beam  pattern  (power)  is  approximated  by  a 
[(sin  kx)/kx]2  curve  both  horizontally  and  vertically.  In  this  case  acheck  is  maoe  to 
determine  whether  the  jammer  is  beyond  the  first  null.  A jammer  that  is  not  inside  the  first 
null  is  assigned  a corresponding  beam-pattern  factor  that  is  equal  to  the  sidelobe  level.  For 
the  jammer  whose  angular  position  places  it  within  the  first  null,  the  function  BEAM  is 
used  to  determine  a horizontal  ( ) and  vertical  ( fy ) beam  pattern  factor.  The  total  beam- 
pattem  factor  for  jammer  J is  then 


(hv  ~ fhlf V- 


(200) 


i 

;i 

i i 

• i 


A similar  procedure  is  followed  for  the  alternative  cosecant-squared  antenna  beam. 


A free-space  jamming  energy  for  jammer  J is  now  found  from 


E0J  = 


Gr^r^mSJ^HV^2 
(4ir  2)R2 


(201) 
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where  Gr  is  the  one-way  antenna  gain,  Lr  is  the  receiving  antenna  loss,  Lm  is  the  mode- 
dependent  loss,  Sj  is  the  jamming  power  density,  X is  the  radar  wavelength,  and  R is  the 
slant  range  from  the  radar  to  the  target. 

Subroutine  MULPTH  is  called  to  account  for  multipath  effects.  It  calculates  a one-way 
amplitude  propagation  factor  F,  which  is  used  to  determine  the  jamming  energy  from 
jammer  J as 

Ej  = EojF2.  (202) 

The  total  jamming  energy  is 


"j 

Efj  = ^ Ej,  (203) 

J- 1 


where  Nj  is  the  total  number  of  jammers,  including  jamming  targets. 

The  total  sea-clutter  energy  is  determined  when  all  jammers  have  been  considered.  The 
first  step  in  the  determination  of  sea-clutter  energy  is  the  computation  of  the  normalized 
mean  backscatter  o0.  This  is  performed  by  subroutine  CLTSIG,  which  evaluates  o0  as  a 
function  of  radio  frequency,  Beaufort  sea  state,  incidence  angle,  and  polarization  orienta- 
tion. The  Beaufort  sea  state  is  calculated  from  the  input  wind  velocity  and  the  height  at 
which  the  velocity  is  assumed  to  be  measured  (4] . An  equivalent  wind  speed  at  a height  of 
10  m is  found  from 


V 


10 


VH 


0.09682 


The  Beaufort  sea  state  is 


(204) 


j 

I 

j 

t 

( 

j 

i 


Bss  - 0.6077(  V10)0  7186.  (205) 

The  other  parameters  required  by  CLTSIG  (radio  frequency  and  incidence  angle)  are  inputs 
to  subroutine  JAM. 

When  the  normalized  mean  backscatter  has  been  evaluated,  a differential  clutter  ele- 
ment of  area  rd<t>dr  is  considered  (Fig.  7).  The  energy  received  ( dE ) from  this  element  is 


G2 

dE  = C — rdQdr, 


where 

P T\2LrLtLmo0 

C=  

4ir3 


(206) 


(207) 
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Fig.  8 — Geometry  of  a clutter  element 


; I 

i 

i 


4 

j 


and  G,  the  antenna  directional  gain,  is  a function  of  the  horizontal  and  vertical  angular  dis- 
placement of  the  clutter  cell  with  respect  to  the  beam  center: 

G = G(0t  + a,  0).  (208) 

Here  0T  is  the  angle  between  the  local  horizontal  and  the  target  or  beam  center,  that  is 
(Fig.  8) 


dT  = sin'1 


(209) 


a is  the  angle  between  the  local  horizontal  and  the  reflected  ray,  given  to  a first-order 
approximation  by 


a « sin-1 


(210) 


and  <t>  is  the  azimuth  of  the  clutter  element  with  respect  to  the  beam  center. 
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The  total  sea-clutter  energy  is  now  considered  to  be  the  energy  that  is  reflected  from 
an  annulus  of  width  A R (Fig.  9)  given  by 


A R = - ct  sec  0, 


where  r is  the  pulse  width  and  i h is  the  grazing  angle.  The  total  sea-clutter  energy  is 


(211) 


<2u  2ah,  R*±R) 


lG(e,0)]' 


drd<t>. 


(212) 


•'n  Jr> 

where  0 - 0T  + a,  or 

6 = °T  + •“‘1  (7  “ ^)  • 

and  r is  the  range  to  the  differential  sea-clutter  element. 

Equation  212  can  be  rewritten  in  a simplified  form  through  the  use  of  a unit  gate  func- 
tion Ur(Rx,R2)- 


(213) 


r2n  r 00  Ct“ 

E = C T Ur(R  l-*2> 

*u  J0  r3 


where 


fdj  = min(filV/^aR) 
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(215) 
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so  that  Eq.  220  can  be  written  as 


1 


£/r(SlfS2)dr. 


(222) 


Integration  of  Eq.  222  yields 


Similarly  the  energy  from  the  remainder  of  the  annulus  can  be  expressed  as 


(223) 

1 


(224) 


where  S represents  a constant  value  assigned  to  the  antenna  directional  gain  (usually  the 
sidelobe  level)  and 


"=  ' Si 


(225) 


The  total  sea-clutter  energy  can  now  be  expressed  as 
E ~ E]  + E2  — C 


*1  Rl) 

which  is  then  reduced  by  the  input  sea-clutter  improvement  factor  Ic : 


5tt  ~ - -H(S-l) 


(226) 


EC=E1C. 


(227) 


Table  21  — JAM  Variables 


! i 


1 j 


Fortran  Variable 


Description 


ALPHA 

ALPHAD 

ACON 

BEAUS 

BETA 

DBDOWN 

DC 

DSTAR 

DWL(K) 


Grazing  angle  of  the  clutter  cell  (rad)  (a  in  Fig.  8) 
Grazing  angle  of  the  clutter  cell  (deg)  (a  in  Fig.  8) 
Constant  used  in  the  sea-state  calculation 
Beaufort  sea  state 

Constant  used  in  the  sea-state  calculation 
One-way  sidelobe  level 

Distance  to  the  clutter  cell  (on  a 4/3  earth’s  radius)  (m) 
Distance  to  the  radar  horizon  (n.mi.) 

Incremental  change  to  the  radio  frequency  for  mode  K 


Tabic  continue* 
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Table  21  (Continued)  — JAM  Variables 


Fortran  Variable 

Description 

EC 

Total  sea-clutter  energy  adjusted  by  the  improvement  factor  (J)  (Ec 
in  Eq.  227) 

EJ 

Total  jamming  energy  (J)  (ETJ  in  Eq.  203) 

ENVIR(l) 

Windspeed  (knots) 

ENVIR(2) 

Height  of  the  wind-speed  measurement  (kft)  (VH  in  Eq.  204) 

FH 

Normalized  horizontal  beam  pattern  factor  (power)  (fH  in 

Eq.  200) 

FHV(J) 

Total  normalized  beam-pattern  factor  for  jammer  J (power) 

(fHV  in  Eq.  200) 

FOPISQ 

Four  times  the  square  of  3.1415926536,  or  4tr2 

FV 

Normalized  vertical  beam  pattern  factor  (power)  (fv  in  Eq.  200) 

HR 

Height  of  the  radar  (m)  ( hr  in  Fig.  8 and  Eqs.  209  and  210) 

HT 

Height  of  target  JTAR  (m)  (hT  in  Fig.  8 and  Eq.  209) 

JTAR 

Target  under  detection 

NUMTGT 

Total  number  of  targets  and  jammers  (Nj  in  Eq.  203) 

OAH 

Horizontal  angle  between  target  JTAR  and  the  jamming  target 
(rad) 

OAV 

Vertical  angle  between  JTAR  and  the  jamming  target  (rad) 

PBBS 

Pencil- beam  boresight  elevation  with  respect  to  the  horizon  (rad) 

PHIB 

Horizontal  3-dB  beamwidth  (rad)  (<>B  in  Eq.  217) 

PJ 

Jamming  power  density  (W/Hz)  ( Sj  in  Eq.  201) 

POLRZ 

Linear  polarization  (deg) 

R1 

min(slant  range,  horizontal  range)  {R  j in  Eqs.  214  and  215) 

R2 

max(slant  range  plus  pulse  width,  horizontal  range)  (R2  in  Eqs. 

214  and  216) 

RC(1) 

Basic  radar  frequency  (MHz) 

RC(2) 

Indicator  of  the  antenna-pattern  function: 

0 = pencil  beam 

1 = esc2  beam 

RC(4) 

Horizontal  3-dB  beamwidth  (rad)  (<pB  in  Eq.  217) 

RC(5) 

Vertical  3-dB  beamwidth  (rad)  (0B  in  Eq.  217) 

RC(6) 

One-way  antenna  gain  (dB)  (Gr  in  Eq.  201) 

RC(8) 

Receiver  antenna  loss  (dB)  (Lr  in  Eq.  201) 

RC(9) 

Losses  between  the  transmitter  output  and  free  space  (dB)  (Lt  in 

Eq.  201) 

RPTB 

Range  corresponding  to  0BI 2 (m),  or  r(0B/2) 

RE 

4/3  of  the  earth’s  radius  (m)  (a) 

RMODE(K,2) 

Upper  boundary  of  elevation- angle  coverage  (rad)  for  mode  K 

RMODE(K,8) 

Mode-dependent  losses  for  scan  mode  K (Lm  ) 

RMTB 

Range  corresponding  to  - dB/2  (m),  or  r(-  0BI 2) 

SIGC 

Total  sea-clutter  energy  adjusted  by  the  improvement  factor  (J)  ( Ec 
in  Eq.  227) 

SIGJAM 

Jamming  power  density  (W/Hz)  ( Sj  in  Eq.  201) 

SIGZ 

Normalized  mean  backscatter  (m2  'm2 ) (o0  in  Eq.  207) 

SINALF 

Sine  of  the  grazing  angle  at  the  clutter  cell,  or  sin  a (Eq.  210) 

Tahir  continue* 
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Table  21  (Concluded)  — JAM  Variables 


Fortran  Variable 

Description 

SR 

Slant  range  of  target  JTAR  (m)  (R  in  Eq.  201) 

SUBC(K) 

Clutter  improvement  factor  for  mode  K (lc  in  Eq.  227) 

TEMPWR 

Signal  energy  with  the  target  at  the  center  of  the  beam 

THETB 

Vertical  3-dB  beamwidth  (rad)  (9B  in  Eq.  217) 

THETT 

Target  elevation  with  respect  to  the  local  horizontal  (rad)  ( 0T  in 

Eq. 209) 

TRGPOS(J,3) 

Height  of  jammer  J (n.mi.) 

TRGPOS(J,4) 

Slant  range  of  jammer  J (n.mi.) 

TRGPOS(J,5) 

Azimuth  angle  of  jammer  J (rad) 

TRGPOS(J,6) 

Elevation  angle  of  jammer  J (rad) 

V 

Range  extent  of  the  clutter  cell  (m)  (A  R in  Eq.  211) 

WVL 

Wavelength  (m)  (X  in  Eq.  201) 

WS 

Intermediate  parameter  (H  in  Eq.  225) 

XFRE 

Radio  frequency  of  the  scan  mode  under  consideration  (MHz) 

XJAMFA 

Jamming  energy  from  theyth  jammer  (J)  (E j in  Eq.  202) 

XJAMN 



Total  jamming  energy  ( J ) 

Subroutine  MATCH 

Subroutine  MATCH  is  called  once  by  the  executive  routine.  For  each  target  defined 
the  subroutine  calculates  the  time  at  which  each  radar  scan  mode  first  scans  the  target  once 
it  has  come  within  the  radar  mode’s  instrumented  range  RMODE(J,7)  (Table  22).  These 
times  are  then  considered  by  the  executive  routine  when  it  determines  the  time  at  which  to 
initialize  the  radar. 

For  a target  of  type  0,  which  is  a target  that  traverses  a straight-line  path,  the  com- 
ponents of  vectors  A and  B (Fig.  10)  are  first  calculated  from  the  input  initial  and  final 
positions  of  the  target  and  the  position  coordinates  of  the  ship.  The  distance  d is  then 
calculated  according  to 


d2  = 


|A  * B 


B 


-ia2-rL 


where  is  the  radar’s  instrumented  range.  The  ratio  x/|B|,  defined  as 

x distance  from  the  initial  point  to  a range  of 

IB  I distance  from  the  initial  point  to  the  final  point  ‘ 


(228) 


(229) 


is  given  by 


(230| 
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This  ratio  is  used  to  determine  tR , the  time  required  for  the  target  to  travel  from  its  initial 
point  to  the  point  where  it  comes  within  instrumented  range. 

tR  = + Itf-W,  (231) 

where  f,  and  tf  represent  respectively  the  initial  and  final  times  of  the  target’s  trajectory. 

The  starting  time  f,(«/)  for  mode  J with  respect  to  target  / is  defined  as  the  initial  tar- 
get time  plus  the  mode  offset  time  if  the  radar  is  initially  scanning  in  mode  1 and  pointing 
at  the  target. 

The  quantity 


[tR- 

N(J)  = integer  part  I ~ £t(J)  J ’ {232) 

where  A t{J)  is  the  interlook  period  for  mode  J,  represents  the  number  of  scans  made  by 
mode  J during  the  time  interval  in  which  the  target  is  covering  the  distance  from  its  initial 
point  to  a range  of  Rlia.  The  time  at  which  mode  J first  scans  target  / after  it  has  come 
within  the  radar’s  instrumented  range  can  now  be  determined  as 

<233) 

For  a target  of  type  1,  which  traverses  a piecewiae  linear  trajectory  consisting  of  from 
two  to  four  altitude  legs,  the  calculations  are  performed  for  each  leg  m succession  until  sc 
initial  scan  time  is  determined  for  earh  radar  scan  mode 
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In  the  case  of  a target  of  type  2,  which  traverses  a constant-altitude  trajectory  consist- 
ing of  a straight-line  segment,  a maneuver  (turn),  and  another  straight-line  segment,  the 
linear  flight  leg  defined  by  the  target’s  starting  point  and  the  point  at  which  the  target’s 
maneuver  begins  is  used  to  determine  initial  scan  times  for  each  radar  mode  as  above.  If  the 
target  is  never  within  a radar  mode’s  instrumented  range  prior  to  its  maneuver,  then  the 
initial  scan  time  for  that  mode  is  set  to  correspond  to  the  projected  last  scan  preceding  the 
start  of  the  maneuver. 

If  a nonmaneuvering  target  fails  to  enter  a radar  scan  mode’s  instrumented  range  during 
the  course  of  its  trajectory,  the  initial  scan  time  for  that  mode  and  target  is  set  to  a large 
default  value.  The  target  is  thereby  removed  from  further  consideration  by  that  radar  mode. 


Table  22  - MATCH  Variables 


Fortran  Variable 

Description 

A(K) 

The  feth  component  of  the  vector  A (n.mi.) 

ADOTB 

Dot  product  of  vectors  A and  B (A  * B in  Eqs.  228  and  230) 

ADOTB2 

Dot  product  squared:  (A  * B)2 

AMAG2 

Magnitude  of  A squared  (|A|2,  or  A2,  in  Eq.  228) 

B(K) 

The  feth  component  of  the  vector  B (n.mi.) 

BMAG2 

Magnitude  of  B squared,  or  |B|2 

DISC 

Quantity  used  in  simplifying  the  calculations:  B2d2 

ISTAT(I) 

Status  indicator  for  target  I at  the  current  time  T: 

0 = inactive 

1 = active 

ITYPE(I) 

Target  type  for  target  I 

NSC  AN 

Number  of  scan  modes 

NTARG 

Number  of  targets 

RMODE(J,5) 

Interlook  period  for  mode  J (h)  (Af(«/)  in  Eqs.  232  and  233) 

RMODE(J,6) 

Time  offset  for  mode  J (h) 

RMODE(J,7) 

Instrumented  range  for  mode  J (n.mi.)  (R^  in  Eq.  228) 

RMODE(J,9) 

The  earliest  time  at  which  mode  J first  scans  any  target  within  the 
instrumented  range 

SHIP(K) 

Position  coordinates  of  the  ship  (n.mi.) 

TALT(I.L) 

Altitude  of  the  trajectory  of  a type-1  target  / on  leg  L (n.mi.) 

Square  root  of  DISC:  \/B2d 2 = \Bd\ 

TERM 

TMANI(I) 

Time  a type-2  target  / begins  its  maneuver  (h) 

TSCAN(I,J) 

Time  at  which  mode  J first  scans  target  / after  it  has  come  within 
the  instrumented  range  (h)  in  Eq.  233) 

UMINUS 

Ratio  used  to  calculate  XSCAN  (jc/i B|  in  Eq.  231) 

XN 

The  number  of  scans  made  by  mode  J while  the  target  is  going 
from  its  initial  point  to  the  instrumented  range  (N(J)  in 

Eq.  232) 

XYZF(I.K) 

Final  position  coordinates  of  target  I (n.mi.) 

XYZI(I,K) 

Initial  position  coordinates  of  target  / (n.mi.) 

XSCAN 

Target  travel  time  from  its  initial  position  to  the  radar  mode’s 
instructed  range  (tR  in  Eq.  231) 

NRL  REPORT  8228 


Once  an  initial  scan  time  TSCAN(I,J)  for  each  target  / and  radar  mode  J has  been 
calculated,  the  earliest  time  each  mode  J sees  any  target  is  determined: 

RMODE(J,9)  = min[TSCAN(I,J),  / = 1, ....  NTARG] , (234) 

where  NTARG  is  the  number  of  targets.  Also,  the  target-status  indicator  ISTAT(I)  (0  = 
inactive  and  1 = active)  is  initialized  to  0 for  each  target  /. 


Subroutine  MULPTH 

Subroutine  MULPTH  is  called  by  subroutines  SIGNAL  and  JAM.  Its  purpose  is  to 
calculate  the  pattern-propagation  factor  FAC  for  a specified  target  ITAR,  while  the  radar  is 
scanning  target  JTAR  (Table  24). 

For  computational  purposes  the  atmosphere  is  divided  into  three  regions:  the  inter- 
ference region,  the  intermediate  region,  and  the  diffraction  region  (Fig.  11).  The  propaga- 
tion factor  is  determined  for  targets  only  above  the  horizon,  that  is,  in  the  interference 
region  and  in  part  of  the  intermediate  region.  This  can  be  readily  accomplished  for  targets  in 
the  interference  region  and  diffraction  regions,  but  there  are  no  numerical  methods  that  are 
easily  applicable  to  field-strength  determination  in  the  intermediate  region.  Consequently 
the  pattern-propagation  factor  for  targets  in  the  intermediate  region  is  found  by  interpolat- 
ing between  the  interference  region  and  the  diffraction  region.  In  other  words,  the  field 
strength  is  determined  for  points  in  the  interference  and  diffraction  regions  at  the  altitude 
of  the  target  under  consideration,  and  this  information  is  then  used  to  determine  the  field 
strength  in  the  intermediate  region  by  a curve- fitting  process. 


INTERFERENCE 

REGION 


TANGENT  RAY 


The  initial  step  in  the  calculation,  which  is  carried  out  for  each  new  frequency  mode,  is 
the  determination  of  the  complex  dielectric  constant 

ec  = €j  - 16OX0  (235) 

where  fj  is  the  ordinary  dielectric  constant,  X is  the  wavelength,  and  a is  the  conductivity. 
Values  of  Ej  and  o as  a function  of  frequency  are  given  in  Refs.  6 and  7.  The  values  used  in 
MULPTH  are  given  in  Table  23.  Linear  interpolation  is  used  for  intermediate  values. 
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Table  23  — Values  of  the  Frequency,  Dielectric  Constant, 
and  Conductivity  Used  in  MULPTH 


f (MHz) 

ei 

a (mhos/m) 

<1500 

1500  to  3000 
3000  to  10000 

80 

80 -[0.00733  (f  - 1500)] 

69  - [0.0005714  (/-3000)] 

4.3 

4.3  + [0.00148  (f  - 1500)] 
6.52+  [0.001354  (f-3000)] 

The  next  step  in  the  calculation  is  the  determination  of  factors  that  will  be  used  in 
calculating  the  value  of  the  pattern- propagation  factor  for  a target  in  the  diffraction  region. 
The  propagation  factor  in  the  diffraction  region  is  [7] 

F=2yiXe"ClX|U1(Z1)U1(Z2)|,  (236) 

where  X is  the  target  ground  range  in  natural  units, 

*=  ~ , (237) 


in  which  r is  in  meters  and  L is  the  natural  unit  of  range, 

/4*„V',a 

t=2h  • 


(238) 


with  a being  the  earth’s  effective  radius  and  fe0  being  the  radar  wavenumber  k = 2ir/\  multi- 
plied by  the  index  of  refraction  n0  at  the  earth’s  surface.  In  Eq.  236  Ux  and  U2  are  calcu- 
lated by  subroutine  UFUN.  Only  the  factors  that  are  target  independent,  namely,  C1  and 
U1(Zi ),  are  calculated  on  the  initial  pass  for  a new  frequency  mode.  The  term  C j is  the 
imaginary  part  of  the  parameter  A x , which  is  used  also  in  evaluating  Ul(Z1 ) in  subroutine 
UFUN.  The  parameter  A j is  [7] 

= 2.3381  e2nil3  + -J-  , (239) 


where  H is  the  natural  unit  of  height, 
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The  location  of  the  reflection  point  and  the  determination  of  the  grazing  angle  is  the 
next  step  in  the  calculation.  The  ground  range  of  the  reflection  point  r*  is  a function  of 
target  height  /i2 , antenna  height  h1 , and  target  ground  range  r (Fig.  6).  This  relationship  is 


2r\  - 3 rrf  + [r2  - 2a(H1  + H2)]ri  + 2 aHxr  = 0, 


(24? 


where 


H‘ " *>(*  ■ t)  ’ 


i-  1,2. 


(243 


Equation  242  has  the  solution 


rl 


r 

2 


+ sgn  (//j  -H2)P  cos 


(24' 


where 


P-t-r 


{![“,"■  *"*>*(i)*]} 


1/2 


(24! 


and 


<t>  = cos-1 


^2ar|Hj  -H2 


(24( 


The  grazing  angle  is  then  found  from  the  approximation 


tan 


hl  ( *i\  rl 


(24' 


If  the  grazing  angle  is  found  to  be  less  than  or  equal  to  0,  the  pattern- propagation  factor  is 
set  to  1 X 10-20,  and  control  of  the  program  is  returned  to  the  calling  subroutine.  If  \p  is 
greater  than  0,  the  divergence  factor!)  and  the  path-length  difference  A R are  calculated 
according  to 


U hl+h2\  ("  (J*i  +jR2)2asin  \p  cos  \p  1 
D=  W1'  a ) [(Hi  + fl2)asin  + 2«1«2J  Wj 


1/2 


(241 


and 


(*l  + R2)G 
1 + (1-G)1/2 


(24 
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« 

F 


[■  i 


where 


G = 


/ 2 sin  i p \2 

\Rl  +«2/ 


RlR2 


(250) 


and  /ij  and  R2  are  slant  ranges  from  the  antenna  and  target  respectively  to  the  reflection 
point. 

Equation  248  is  a simplified  version  of  Eq.  16  in  Ref.  7,  and  Eq.  249  is  readily  derived 
from  basic  trigonometric  relationships. 

The  path-length  difference  is  now  compared  to  A/4,  since  this  is  the  generally  accepted 
limit  of  validity  for  the  analytical  method  applied  to  the  interference  region.  If  A R < A/4, 
the  target  is  assumed  to  be  in  the  intermediate  region,  and  the  preliminary  step  in  the  inter- 
polation process  is  carried  out.  This  consists  of  finding  the  location  of  a point  that  has  the 
altitude  of  the  target  under  consideration  but  with  a path-length  difference  of  A/4.  The 
method  used  will  be  discussed  in  the  subsection  on  subroutine  RNGCEN.  This  information 
is  used  in  the  interpolation  scheme  for  determining  the  pattern-propagation  factor  in  the 
intermediate  region. 


The  next  step  in  the  calculation  is  the  computation  of  the  complex  reflection  coeffi- 
cient. The  reflection  coefficient  is  related  to  the  linear  polarization,  and  the  equations  for 
the  horizontal  polarization  and  vertical  polarization  reflection  coefficients  are 


I 


U 


ec  sin  \p  - (ec  - cos2  i p)112 
ec  sin  \p  + (ec  - cos2  i//)1^2 


(251a) 


and 


I*=Phe'i0h 


sin  \p  - (ec  - cos2 

sin  \p  + (ec  - cos2  *)1/2  ' 


(251b) 


where  pv  and  ph  are  the  intrinsic  reflection  coefficients  and  <pu  and  <t>h  are  the  phase  changes 
for  seawater.  For  other  than  vertical  or  horizontal  polarization  the  reflection  coefficient  is 
the  vector  sum  of  the  horizontal  and  vertical  components: 

r = poe-'0  = [(r„  cos  Of  + (r„  sin  0)2)1/a.  (252) 

The  two  remaining  parameters  that  contribute  to  the  pattern- propagation  factor  are 
the  roughness  factor  and  the  directional  field-strength  ratio.  The  roughness  factor  is  [6] 

rf  = e-2U2-Han<i/  )M|2  (253) 
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4 

Equation  253  was  developed  under  the  assumption  that  the  sea  surface  has  a Gaussian  I 

height  distribution  with  standard  deviation  Ha.  For  a sea  surface  with  approximately 

sinusoidal  waves  and  amplitude  a,  I 


(254) 


The  field-strength  ratios  /'(01 ) and  f(0 2)  for  the  direct  and  reflected  rays  are  computed 
in  subroutine  GAIN. 


It  is  now  possible  to  compute  the  pattern-propagation  factor  for  the  point  in  question 
according  to 


F = 


f(02) 

1 + 

Mi) 


P0Drse 


-/( h0A  R +*>i  ) 


(255) 


The  point  in  question  will  be  the  target  position  if  the  target  is  in  the  interference  region  or 
the  point  corresponding  to  a path -length  difference  of  A/4  if  the  target  is  above  the  horizon 
and  in  the  intermediate  region. 


For  targets  in  the  interference  region  the  calculation  is  now  complete,  and  control  of 
the  program  is  returned  to  the  calling  routine. 

For  targets  in  the  intermediate  region  additional  computation  is  required.  The  pattern- 
propagation  factor  must  be  found  for  a point  in  the  diffraction  region  that  will  be  used  as 
the  lower  bound  in  the  interpolation.  A point  that  is  twice  the  horizon  distance  from  the 
antenna  is  chosen  as  being  representative  of  the  diffraction  region.  Subroutine  UFUN  is 
now  called  to  determine  the  value  of  the  parameter  t/1(Z2 ) for  this  point,  and  the  pattern- 
propagation  factor  is  calculated  according  to  Eq.  236.  The  upper  bound  for  the  interpola- 
tion is  the  value  of  the  pattern-propagation  factor  that  was  calculated  from  the  point  with 
a path-length  difference  of  A/4  (Eq.  255).  The  lower  and  upper  bound  values  of  the  pattern- 
propagation  factor  are  presented  to  subroutine  INTER,  which  carries  out  the  interpolation 
to  determine  the  pattern- propagation  factor  at  the  target.  This  completes  the  calculation, 
and  control  of  the  program  is  returned  to  the  calling  routine. 


Table  24  - MULPTH  Variables 


Fortran  Variable 


Description 


CA 


Function  of  the  complex  dielectric  constant  and  polarization  used 


CGAM 

CGAMH 

CGAMV 

CTEMY 


in  subroutine  UFUN  (A  j in  Eq.  239) 

Reflection  coefficient  (F  in  Eq.  252) 

Horizontal  polarization  reflection  coefficient  (Pft  in  Eq.  251b) 
Vertical  polarization  reflection  coefficient  ( T,,  in  Eq.  251a) 
Complex  dielectric  coefficient  (ec  in  Eq.  235) 


Table  continue!*. 
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Table  24  (Concluded)  — MULPTH  Variables 


Fortran  Variable 

Description 

CUl 

Parameter  (calculated  in  subroutine  UFUN)  used  in  evaluating  F 
(U1(Zl)  in  Eq.  236) 

DISP 

Divergence  factor  (D  in  Eq.  248) 

EPS1 

Ordinary  dielectric  constant  (ej  in  Eq.  235) 

FAC 

Pattern-propagation  factor  (F  in  Eq.  236) 

FAC1 

Pattern-propagation  factor  (F  in  Eq.  236) 

GD 

Field-strength  ratio  for  the  direct  ray  (f(()  j ) in  Eq.  255) 

GRRAD 

Ground  range  from  the  radar  to  the  reflection  point  (m)  (rj  in 

Eq. 242) 

GRRT 

Ground  range  to  target  (m)  (r  in  Eq.  242) 

GRTAR 

Ground  range  from  the  target  to  the  reflection  point  (m)  (r2  in 

Fig.  6) 

GV 

Field-strength  ratio  for  the  reflected  ray  (f(02)  in  Eq.  255) 

H 

Natural  unit  of  height  ( H in  Eq.  240) 

HR 

Height  of  the  antenna  (m)  (/ij  in  Eq.  243) 

HT 

Height  of  the  target  (m)  (h2  in  Eq.  243) 

ITAR 

Target  under  consideration 

ISWIT 

Mode  indicator: 

0 = initial  pass  or  a new  mode 

1 = same  mode  as  the  preceding  pass 

JTAR 

Target  currently  being  scanned  by  the  radar 

L 

Natural  unit  of  length  (L  in  Eq.  238) 

PHIREF 

Reflection-coefficient  phase  angle  (rad)  ( <p  in  F.qs.  244  and  246) 

POLRZ 

Linear  polarization  (deg)  (0°  = horizontal  and  90°  = vertical) 

( 0 in  Eqs.  241  and  252) 

PTH  DIF 

Path-length  difference  (m)  (Aft  in  Eq.  249) 

RE 

4/3  of  the  earth's  radius,  ora  (m) 

RHOREF 

Intrinsic  reflection  coefficient  (p0  in  Eq.  252) 

SIG1 

Conductivity  (mhos/m)  (a  in  Eq.  235) 

SRRAD 

Slant  range  from  the  radar  to  the  reflection  point  (m)  (ft  j in 

Eqs.  248,  249,  and  250) 

SRTAR 

Slant  range  from  the  target  to  the  reflection  point  (m)  (ft2  in 

Eqs.  248,  249,  and  250) 

TANPS1 

Tangent  of  the  grazing  angle  (tan  i p in  Eq.  247) 

WVL 

Wavelength  A (m) 

XFRE 

Frequency  of  the  next  mode  to  be  considered  (MHz) 

XIMCA 

Imaginary  part  of  CA 

XKPAR 

Wavenumber  k - 2ir/\ 

XKZERO 

Product  kn0  of  the  radar  wavenumber  and  the  index  of  refraction 
at  the  earth’s  surface  (fc0  in  Eqs.  238,  240,  and  241) 

XMUR 

Roughness  factor  (r,  in  Eqs.  253  and  255) 

XNAT 

Ground  range  to  the  target  in  natural  units  (X  in  Eq.  237) 

XNAT1 

Range  corresponding  to  A ft  = X/4  in  natural  units 

XNAT2 

Twice  the  horizon  range  in  natural  units,  or  2rH/L 

XNZERO 

Index  of  refraction  of  the  earth’s  surface  (n0  in  text  after 

Eq. 238) 

Z1 

Antenna  height  in  natural  units  (Zt  in  Eq.  236) 

Z2 

Target  height  in  natural  units  (Z2  in  Eq.  236) 
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Subroutine  NEWPOS 

Subroutine  NEWPOS  is  called  by  the  executive  routine  to  calculate  the  position  of  all 
targets  and  jammers  for  game  time  T.  It  is  assumed  that  the  radar  beam  is  positioned  at  0 
degrees  azimuth  at  time  T.  The  position  and  azimuth  (relative  to  0 degrees)  of  each  target  is 
first  determined  at  time  T.  Then  a corrected  position  for  each  target  is  calculated,  corre- 
sponding to  its  location  at  time  T + c/7’,  where  dT  is  the  time  it  takes  the  radar  to  scan  the 
azimuth  angle  of  the  target. 

For  each  target  or  jammer  J,  the  target  status  at  game  time  T is  determined.  If 


f,  T < tf. 

(256) 

where  T is  the  current  game  time,  /,  is  the  time  target  J leaves  its  initial  position,  and  l(  is 
the  time  target  J arrives  at  its  final  position,  then  the  target  is  active  and  the  target-status 
indicator  ISTAT(J)  is  set  to  1 (Table  25).  Otherwise,  ISTAT(J)  is  set  to  0 to  indicate  an 
inactive  target,  and  the  subroutine  proceeds  to  the  next  target. 

If  target  J is  of  type  0,  with  a straight-line  trajectory,  or  of  i. 
four  altitude  legs,  the  subroutine  first  determines  the  ratio  of  the  elat. 

i from  two  to 
to  the  total 

target  time  according  to 

T-t, 

AT  = . 

tf-t, 

(257) 

The  target’s  position  coordinates  with  respect  to  the  designated  origin 

at  time  T are 

xT  = xi  + A T(Xf-Xj), 

(258) 

y T = y,  + AT(y^  - y,). 

(259) 

and,  for  target  tyr>e  0, 

zT  = Zj  + AT(Zf  - Zj), 

(260) 

where  (x  , y , z ) and  ( x ,,  y zf)  are  the  initial  and  final  position  coordinates  respectively  for 

target  J. 

If  larged  J is  of  ty|ie  1 let  k lie  the  ftth  altitude  point,  so  that 

tjk  - 1)  < T < ta(k). 

(261) 

where  ta(kf  is  the  time  when  target./  reaches  the  feth  altitude  point  and  where 

(262) 

and 

ta{N)  - tf. 

(263) 
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with  N being  the  number  of  altitude  points  (NALT  + 2),  where  NALT  is  defined  for  target  J 
in  subroutine  TARGET.  If  AT  is  redefined  so  that 


T-ta(k-  1) 
ta(k)  - ta(k  - 1)  ’ 


(264) 


the  z coordinate  for  target  J of  type  1 at  time  T is 


zT  = za(k  - 1)  + AT[za(fc)  - za(k  - 1)] , (265) 

where  za  (fe)  is  the  designated  altitude  of  target  J at  node  k at  time  t(k).  The  z component 
z„  and  the  magnitude  dv  of  the  direction  vector  for  target  J originally  calculated  in  subroutine 
MATCH  are  also  updated: 


zv=zT  ~zJk  ~ J) 

and 


(266) 


d 


2 

V 


+ z 


2 
v * 


If  target  J is  of  type  2,  a maneuvering  target,  then  if 


(267) 


T<tm,  (268) 

where  tm  is  the  time  when  target  J begins  its  maneuver  (constant-altitude  tum),  the  target 
is  on  a linear  path  segment  and  the  distance  traveled  by  time  T is 

d = v(T  - f,),  (269) 

so  that 

xT  = Xj  + d cos  (Oj)  (270) 

and 

yT  = y,  + d sin  (0,),  (271) 

where  v is  the  speed  of  target  J and  0,  is  the  initial  heading  of  target  J.  Similarly,  if 

T>tn,  (272) 

where  t„  is  the  time  when  target  J terminates  its  maneuver,  the  target  is  on  its  final  linear 
leg  and  the  distance  traveled  on  this  leg  by  time  T is 


d = v(T-tn), 


(273) 
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so  that 

xT  = xn  + d cos  Of  (274) 

and 

>T  = y „+dsin0r  (275> 

where  (*„ , y„ ) are  the  coordinates  of  the  point  where  target  J terminates  its  maneuver  and 
Of  is  its  final  heading.  If 


(276) 

then  the  target  is  performing  its  maneuver,  so  that  if 

> 

II 

S 

1 

3 

3 

(277) 

and 

0 = 0,  + TURN(A  - tt/2). 

(278) 

then 

XT  = xc  + rm  cos  0. 

(279) 

yr  = yc  + rm  sin  0. 

(280) 

and 

2T  = zi  > 

(281) 

where  rm  is  the  radius  of  the  maneuver  circle  for  target «/,  TURN  is  the  maneuver  direction 
indicator  (1  for  counterclockwise  and  -1  for  clockwise),  and  xc  and  yc  are  the  x and  y 
coordinates  of  the  center  of  the  maneuver  circle  for  target  J.  The  components  of  the  target 
direction  vector  are  also  corrected  to 

xv  = cos  (0  + TURN7T/2), 

(282) 

yu  = sin  (0  + TURNff/2), 

(283) 

and 

d2  = x2  + y2 

“u  yv' 

(284) 

since  a target  of  type  2 moves  at  a constant  altitude. 


Once  the  target’s  coordinates  ( xT , yT,  zT)  with  respect  to  the  designated  origin  at  time 
T are  calculated,  they  are  transformed  to  a radar-centered  coordinate  system  by 

dxT  - x T~xr,  (285) 


1C 


m*rm> 


-Ir.r , ’ i 


J 

1 
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dvr  = yr  - yr. 


dzr-  zr  -zr,  (287) 

where  (xr,  yr,  zr)  is  the  stationary  position  of  the  radar.  The  target  azimuth  0 is 

U - tan  ^ (dyT/dxT).  (288) 

Ponti”„nn,lhe  T T “ lr\T,  ?“  b“"  '»  *“** ■>.  «»  corrected  Um« 

designated  origin  ’Irflf’  /.+,i7'  and  <d*T+d7'.  dyr*dT>  dzT*dT ) with  respect  to  the 
designated  origin  and  the  radar  respectively  and  a corrected  azimuth  07.^,r  are  obtained  hv 

repeating  the  preceding  sequences  of  calculations  with  time  T replaced  by  T + dT,  where  V 

dT  = 80r/2n,  (289) 

in  which  s is  the  radar  scan  period  and  0T  is  the  target-/  azimuth  at  game  time  T. 

I he  elevation  or  of  target  J with  respect  to  the  horizon  is  determined  from  approxima 
tions  made  to  the  geometry  of  Fig.  12.  The  distance  D can  be  found  from  ' 


D-ftohdT^yhdri11*- 


This  can  be  approximated  by 


/>  = (2V,,)l/2+(2flo/la)l/2 

where  a0  is  4/3  of  the  earth 's  radius.  Equation  291  can  now  be  solved  for  hx  to  yield 


-(/,  ) 1 /2 1 2 

[95.2  ' a>  J ’ 


where  /i,  is  in  nautical  miles.  If  it  is  assumed  that  triangle  ABT  is  a right  triangle,  then 


tan  a = 


hrp  - hi 


hT  ( /)]/2  hX/1  V 

D y 95.2  dH2  J ' <2<J 

UuJE  £“£££' Pr“'dUre  ,n  NEWPOS-  «*  ““O'  '■  «- 
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Fig.  1 2 — Geometry  of  target  elevation 


Table  25  - NEWPOS  Variables 


Fortran  Variable 

ALT(J,I) 

BPItIME 

CM(J,1 ) 

CM(J,2) 


DEL(l) 


DEL(2) 


DEL(3) 


DELT 


Description 


Altitude  of  profile  node  / of  target./  with  ITYPE  = 1 (n.mi.) 

Tangent  of  the  elevation  of  target  J measured  from  the  horizon  (tan  « 
in  Eq.  295) 

Position  coordinate  x of  the  center  of  the  maneuver  circle  for  target 
J with  ITYPE(J)  = 2 (n.mi.)  (xc  in  Eq.  279) 

Position  coordinate  y of  the  center  of  the  maneuver  circle  for  target 
J with  ITYPE(J)  = 2 (n.mi.)  (yc  in  Eq.  280) 

Ground  range  from  the  radar  to  target  J at  time  T + dT  (n.mi.)  ( D in 
Eqs.  292  through  295) 

Coordinate  x of  target  J with  respect  to  the  radar  at  time  T and 
then  corrected  to  time  T + dT  (n.mi.)  (dxr  in  Eq.  285  and 
d xT*dT  *n  Eq-  290) 

Coordinate  y of  target  J with  respect  to  the  radar  at  time  T and 
then  corrected  to  time  T f dT  (n.mi.)  ( dyr  in  Eq.  286  and 
dyT+dT  *n  Ed-  290) 

Coordinate  z of  target  J with  respect  to  the  radar  at  times  T and 
then  corrected  to  time  T + dT  (n.mi.)  (dzT  in  Eq.  287  and 
d zT*dT ) 

Distance  target./  has  traveled  on  the  current  segment  of  the  profile 
with  ITYPE(J)  = 2 (n.mi.)  (d  in  Eqs.  269  and  273) 


Table  continuei 
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Table  25  (Continues)  — NEWPOS  Variables 


Fortran  Variable 

Description 

DOTP 

Normalized  dot  product  of  the  vectors  defined  by  VEL  and  DEL 
(cosine  of  the  angle  between  the  vectors) 

DSTAR 

Distance  from  the  radar  to  the  horizon  (n.mi.) 

DT 

Ratio  of  the  elapsed  time  in  flight  to  the  total  flight  time  for  target./ 
(AT in  Eq.  257) 

DX 

Coordinate  x of  target  J with  respect  to  the  radar  at  time  T and 
then  corrected  to  time  T + dT  (n.mi.)  ( dxT  in  Eq.  285  and 
dxT¥dr  'n  Eq.  290) 

DY 

Coordinate  y of  target  J with  respect  to  the  radar  at  time  T and 
then  corrected  to  time  T + dT  (n.mi  ) (dyj-  in  Eq.  286  and 
dyr+dr  *n  290) 

DZ 

Coordinate  z of  target  J with  respect  to  the  radar  at  times  T and 
then  corrected  to  time  T + dT  (n.mi.)  (dzT  in  Eq.  287  and 
dzT+dT ) 

HEADF(J) 

Final  heading  of  target  J with  ITYPE(J)  = 2 ( Of  in  Eqs.  274  and  275) 

HEADI(J) 

Initial  heading  of  target./  with  ITYPE(J)  = 2 (0/  in  Eqs.  270  and  271) 

I FLAG 

Flag  to  indicate  if  calculations  are  being  performed  with  respect  to 

T (IFLAG  = 1)  or  T + dT  (IFLAG  = 2) 

ISTAT(J) 

Status  indicator  for  target  J: 

0 = inactive 

1 = active 

ITYPE(J) 

Type  of  target  profile  for  target  J: 

0 = straight-line  trajectory 

1 = altitude  legs 

2 = maneuver 

NALT(J) 

Number  of  altitude  nodes  for  target  J with  ITYPE(  J)  = 1 

NUMTGT 

Total  number  of  targets  plus  jammers 

PIOVR2 

One  half  of  3.1415926536,  or  tt/2 

RADM(J) 

Radius  of  the  circle  of  maneuver  by  target  J with  ITYPE(J)  = 2 
(n.mi.)  (rm  in  Eqs.  276,  279,  and  280) 

SHIP(l) 

Coordinate  x of  the  radar  position  (n.mi.)  (xr  in  Eq.  285) 

SH1P(2) 

Coordinate  y of  the  radar  position  (n.mi.)  ( yr  in  Eq.  286) 

SHJP(3) 

Radar  antenna  height  (n.mi.)  ( ha  in  Eqs.  291  through  293) 

Square  root  of  the  antenna  height  ((n.mi.)1/z ) (h^  in  Eqs.  291 
through  293) 

SHIP(4) 

SPEED(J) 

Speed  of  target  J with  ITYPE(J)  = 2 (n.mi./h)  (v  in  Eqs.  269  and 

273) 

T 

Current  game  time  (h)  (T  in  Eq.  256) 

TALT(J,1) 

Time  when  target./ arrives  at  altitude  node  / with  ITYPE(J)  = 1 (h) 
(ta(k)  in  Eq.  261) 

T1ME3(J) 

Time  when  the  radar  scans  target  J (s)  (T  + dT  in  sentence  containing 
Eq.  289) 

TMANF(J) 

Time  when  target./  with  ITYPE(J)  = 2 terminates  its  maneuver  (f„ 
inEq.  272) 

Table  continue*. 
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Table  25  (Concluded)  — NEWPOS  Variables 


Fortran  Variable 

Description 

TMANI(J) 

' 

Time  when  target  J with  1TYPE(J)  = 2 begins  its  maneuver  (fm  in 

Eq.  268) 

TRGPOS(J,l) 

Coordinate  x of  target  J at  time  T and  then  corrected  to  time  T + dT 
(n.mi.)  (xT  in  Eq.  258  and  xT+dT) 

TRGPOS(J,2) 

Coordinate  y of  target  J at  time  T and  then  corrected  to  time  T + dT 
(n.mi.)  (yT  in  Eq.  259  and  yr+dr) 

TRGPOS(J,3) 

Coordinate  z of  target  J at  time  T and  then  corrected  to  time  T + dT 
(n.mi.)  (zT  in  Eqs.  260,  265,  and  281  and  zT+dT) 

TRGPOS(J,4) 

Slant  range  R to  target  J (n.mi.) 

TRGPOS(J,5) 

Azimuth  of  target  J at  time  T and  then  corrected  to  time  T + dT 
(rad)  (0T  in  Eq.  289  and  0T+dT) 

TRGPOS(J,6) 

Elevation  of  target  J measured  from  the  horizon  (rad)  (a  in  Eq.  293) 

TRGPOS(J,7) 

Ground  range  from  the  radar  to  target  J (n.mi.)  (D  in  Eq.  293) 

TT 

Times  T and  T + dT  when  position  calculations  are  being  performed, 
depending  on  the  value  of  IFLAC 

TURN(J) 

Indicator  for  the  target-J  maneuver  with  ITYPE(J)  = 2: 

1 = counterclockwise 
—1  = clockwise 

VEL(J.l) 

Target-J  direction-vector  x component  (r„  in  Eqs  267,  282,  and 

284) 

VEL(J,2) 

Target-J  direction- vector  y component  (yu  in  Eqs.  267,  283,  and 

284) 

VEL(J,3) 

Target-J  direction-vector  z component  ( zv  in  Eqs.  266  and  267) 

VELMAG2 

Magnitude  of  vector  VEL 

XMANF(J.l) 

Coordinate  x for  the  point  where  target  J with  ITYPE  = 2 terminates 
its  maneuver  (x„  in  Eq.  274) 

XMANF(J,2) 

Coordinate  y for  the  point  where  target  J with  ITYPE  = 2 terminates 
its  maneuver  ( yn  in  Eq.  275) 

XMANI(J.l) 

Coordinate  x for  the  point  where  target  J with  ITYPE  = 2 begins  its 
maneuver 

XMANI(J,2) 

Coordinate  y for  the  point  where  target  J with  ITYPE  = 2 begins  its 
maneuver 

XYZF(J,1) 

Final  coordinate  x for  target  J (n.mi.)  ( Xf  in  Eq.  258) 

XYZF(J,2) 

Final  coordinate  y for  target  J (n.mi.)  ( y f in  Eq.  259) 

XYZF(J,3) 

Final  coordinate  z for  target  J (n.mi.)  (Zf  in  Eq.  260) 

XYZF(J,4) 

Final  time  for  target  J (tf  in  Eq.  256) 

XYZI(J.l) 

Initial  coordinate  x for  target  J (n.mi.)  (x,  in  Eq.  258) 

Initial  coordinate  y for  target  J (y,  in  Eq.  258) 

XYZI{J,2) 

XYZI(J,3) 

Initial  coordinate  z for  target  J (z,  in  Eq.  260) 

XYZI(J,4) 

Initial  time  for  target  J (f,  in  Eq.  256) 

i 
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Subroutine  RESOL 

Subroutine  RESOL  is  called  by  subroutines  DET3D  and  MWDET.  The  purpose  of  this 
routine  is  to  identify  the  targets  whose  return  signal  lies  within  the  reference  cells  of  the  ith 
target  (target  NTAR,  the  target  of  interest).  The  number  of  targets  (including  the  ith  target) 
within  the  reference  cells  is  NI.  The  specific  NI  targets  are  listed  in  array  INF,  and  the  signal 
energy  of  the  NI  targets  is  calculated  and  stored  in  the  array  SNREF  (Table  26). 

The  ;th  target  lies  within  the  reference  cells  of  the  ith  target  if 

\Rj -R,\ < AO  - (Nr  + 2)AR  (294) 

and 

\Aj  ~Aj\  < 2.4  0,  (295) 

where  R is  the  target  range  and  A is  the  target  azimuth,  NR  is  the  number  of  reference  cells 
on  each  side  of  the  ith  target  cell,  A R is  the  range-cell  dimension,  and  0 is  the  3-dB  antenna 
beamwidth.  The  signal  energy  for  the/th  target  is  found  by  calling  subroutine  SIGNAL. 


Table  26  — RESOL  Variables 


Fortran  Variable 

Description 

DELR 

Range  interval  used  to  determine  whether  the  target  lies  with  the 
reference  cells  of  the  ith  target  (AD  in  Eq.  294) 

INF(K) 

Target  number  of  the  feth  interfering  target 

N 

Number  of  targets 

NI 

Number  of  interfering  targets 

NREF 

Number  of  reference  cells  on  each  side  which  are  used  to  calcu- 
late the  detection  threshold  (NR  in  Eq.  294) 

NTAR 

Target  / of  interest 

RES 

Dimension  of  the  range-resolution  cell  (A R in  Eq.  294) 

SNREF(K) 

Signal  power  of  the  feth  interfering  target 

TH3DB 

Antenna  3-dB  azimuth  beamwidth  ( 0 in  Eq.  295) 

TRGPOS(I,4) 

Range  of  the  ith  target  (Rj  in  Eq.  294) 

TRGPOS(l,5) 

Azimuth  of  the  ith  target  (Aj  in  Eq.  295) 

Subroutine  RNGCEN 

Subroutine  RNGCEN  is  called  by  subroutine  MULPTH.  Its  function  is  to  determine 
the  location  of  the  reflection  point  on  a surface  with  a radius  of  4/3  of  the  earth’s  radius, 
corresponding  to  a path-length  difference  of  A/4 . This  information  is  used  in  evaluating  the 
propagation  factor  in  the  intermediate  region. 
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The  subroutine  is  entered  with  a value  of  sin  4*  that  corresponds  to  the  flat-earth  solu- 
tion to  the  problem 


sin 


(A/4)2 +4  hrh, 


(296) 


where  A/4  represents  the  path-length  difference  and  hr,  ht,  and  \p  are  defined  in  Fig.  13. 
This  value  of  sin  \p  is  used  to  calculate  the  path-length  difference  A from  the  following 
equation,  whose  development  will  be  discussed  in  the  next  paragraph  using  the  spherical- 
earth  geometry  shown  in  Fig.  14: 


4 sin  4/ 

1 + [1  + (2 hr/a  sin2  4i))112  1 + [1  + (2/i,/asin2  1//)11/2 

+ ht 


(297) 


where  a is  4/3  of  the  earth’s  radius.  The  function  f,  defined  as 


f- A- 


A_ 

4 ’ 


(298) 


: ' 


is  evaluated,  and  its  absolute  value  is  compared  to  A/40.  If  \f\  > A/40,  the  derivative  of  f 
with  respect  to  sin  \p  is  determined  and  used  to  calculate  a new  value  of  sin  «// : 


sin  \pr 


Sln  ^old  ~f  df/dl&m  4*)  ’ 


(299) 


A new  value  of  A is  then  computed  using  sin  i/-new , and  this  process  is  continued  until  the 
convergence  criterion  \f\  < A/40  is  satisfied.  When  this  occurs,  the  corresponding  values  of 
rj , r2,  f?i , and  R2  (Fig.  13)  are  calculated  (Fortran  variables  SRI,  SR2,  Rl,  and  R2, 

Table  27)  and  control  of  the  program  is  returned  to  MULPTH. 
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Fig.  14  — Spherical -earth  geometry 


Equation  297  is  developed  as  follows:  From  Fig.  13  or  Fig.  14 
R = (R2  + R\  + 2 RXR2  cos  2^)1/2 

= [(Rx  + R2)2  - 2RXR2(1  - cos  2\p)] 1/2 
= [(«!  + R2)2  -4RxR2  sin2  \p]112. 
Equation  300  can  be  rewritten  as 

T , lid 

ARXR2  sin2  i p 

R = (R  1 *R2)  1 5 

(Rx+R2)2  _ 


and,  since  A * R - (Rx  + R2), 


A = («i  + *2H-1+  1- 


l\R2  sin2  1 1) 

+fl2)2  _ 


(flj  + R2) 


(4 RxR2  sin2  *)/(*i  +R2V 


|l  - [(4R  jR2  •' 


sin2  \p)/(R1  +R 2 )2]L  +1 


When  the  path-length  difference  is  close  to  X/4,  sin  ip  * 0;  consequently  Eq.  302  can  be 
simplified  to 


2i?i/?2  2 

‘■srrs; 


sin2  l//. 


H* 


v 
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To  reduce  Eq.  303  to  Eq.  297 ,R1  and  R2  must  be  expressed  in  terms  of  hr,  h(,  and 
sin  i //,  which  is  accomplished  as  follows:  From  Fig.  14 


i 

sin  \ l) 


h2  -R2  + 2 ahr 
2R1a 


2a  ' 


Neglecting  hr/2a  gives 


*1 

2a 


(304) 


(305) 


Applying  the  quadratic  formula  to  Eq.  305  yields 


*1“ 


2^ 

sin  i p + [sin2  i p + (2/ir/a)] 112 


(306) 


Similarly 


2ht 

R2  = • 

sin  i p + [sin2  \p  + (2 ht/a)]112 

Substitutions  of  Eqs.  306  and  307  reduce  Eq.  303  to  Eq.  297. 


(307) 


Table  27  - RNGCEN  Variables 


Fortran  Variable 

Description 

DELT 

Wavelength  divided  by  4 (m)  (A/4  in  Eq.  296) 

HR 

Height  of  the  antenna  (m)  ( h , in  Eqs.  296  and  297) 

HT 

Height  of  the  target  (m)  ( ht  in  Eqs.  296  and  297) 

R1 

Slant  range  from  the  radar  to  reflection  point  (m)  (i? x in  Eq.  300) 

R2 

Slant  range  from  the  reflection  point  to  target  (m)  (R2  u1  Eq.  300) 

RE 

4/3  of  the  earth’s  radius  (m)  (a  in  Eqs.  299  and  306  throu^i  307) 

S 

Sine  of  the  grazing  angle  (sin  \ p in  Eqs.  298,  299,  301,  and  305 
through  307) 

SRI 

Ground  range  from  the  radar  to  the  reflection  point  (m)  (rj  in  text 
after  Eq.  299) 

SR2 

Ground  range  from  the  reflection  point  to  the  target  (m)  (r2  in  text 
after  Eq.  299) 
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Subroutine  SIGNAL 

Subroutine  SIGNAL  is  called  by  the  executive  routine  every  scan  for  each  target  and 
radar  mode.  For  a given  target  JTAR,  the  subroutine  computes  the  free-space  returning  sig- 
nal power  PWR  and  the  total  received  signal  energy  SIGEN,  the  latter  taking  into  account  the 
effects  of  multipath  propagation  and  rain  attenuation  (Table  28).  A second  entry  point 
NOISE  calculates  the  noise  energy  (including  jamming)  EN  and  clutter  energy  EC  associated 
with  the  target  JTAR. 

Subroutine  SIGNAL  first  calls  subroutine  TARSIG  to  compute  target  JTAR’s  radar 
cross  section  a as  a function  of  aspect  angle.  This  is  then  used  to  determine  the  free-space 
returning  signal  power  at  the  beam  maximum  according  to 


LrpLfrf 

R4(  4rr)3 


(308) 


where  PT  is  the  peak  power  (W),  G is  the  one-way  antenna  gain  (with  respect  to  the  omni- 
directional case),  X is  the  radar  wavelength  (m),  a is  the  target  cross  section  (m2),  Lr  is  the 
receiver  antenna  loss,  L-r  is  the  loss  between  the  transmitter  output  and  free  space,  LM  is 
the  mode-dependent  loss,  and  R is  the  target  range  (m).  The  received  signal  energy  for  a 
pulse  of  duration  r is  then 


' S0  = PrT.  (309) 

While  the  target  is  assumed  to  be  in  the  center  of  the  azimuth  beam,  the  signal  energy 
must  be  adjusted  for  target  JTAR  being  off  the  elevation  beam  center.  This  is  accomplished 
through  the  use  of  the  BEAM  function,  which  determines  a one-way  beam-shape  factor  f(0) 

\ that  is  applied  to  the  received-signal  energy  according  to 

Sx  =Solfl0)]2.  (310) 

Rain  is  modeled  by  a large  number  of  independent  scatterere,  each  of  cross  section  o, 
and  located  within  the  radar  resolution  cell.  This  method  is  suggested  by  Skolnik  (8] . Ac- 
cordingly the  total  rain  cross  section  is 

OR-Vm  £ (311) 

where  Vm  is  the  volume  of  the  radar  resolution  cell: 

vm  = (f)  RXOb  fy)  . (312) 

1 1 

1;  i where  0fl  and  <t>B  are  respectively  the  horizontal  and  vertical  3-dB  beamwidths  in  radians,  c 

is  the  speed  of  light,  and  tc  is  the  compressed-pulse  length  in  seconds. 
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It  can  be  shown  that  if  the  raindrop  diameter  D is  small  in  comparison  to  X,  then  a, 
can  be  represented  by 


\K\2D6, 


where  K depends  on  the  dielectric  constant  of  the  scatterer  and  is  approximately  0.93 
for  water  at  10  C when  X = 10  cm.  Since  the  drop  diameter  is  not  a convenient  parameter, 
an  expression  has  been  developed  that  relates  drop  diameter  to  rainfall  rate  r (in  millimeters 
per  hour): 


Z D6  = 200r16. 


Substituting  Eqs.  312,  313,  and  314  into  Eq.  311  and  using  a value  of  0.93  for  K ^ 
gives  the  total  rain  cross  section  aR  in  the  resolution  cell  as 

aR  = 6.706  X 10"6  Tc0B<t>BR2r1&\-* . (315 

This  expression  for  oR  is  used  to  determine  the  rain’s  contribution  to  the  total  noise. 

The  two-way  rain  attenuation  is  calculated  by  fitting  a curve  to  data  published  by 
Nathanson  [ 9J . The  data  show  a logarithmic  relationship  between  attenuation  and  fre- 
quency that  can  be  expressed  algebraically  as 

2a  = 1.753  X 10‘3  fXA1 , (316 

where  2a  is  the  two-way  attenuation  in  decibels  per  nautical  mile  per  millimeter  per  hour 
and  f is  the  frequency  in  gigahertz.  The  two-way  attenuation  Ar  (absolute)  for  a given  rain- 
fall rate  r,  range  R (meters),  and  wavelength  X (meters)  is 

log)0  Ar  = - 10-8  Rr\~lsl.  (317] 

Before  the  rain -attenuated  signal  energy  can  be  computed,  it  is  necessary  to  consider 
multipath  effects.  This  is  carried  out  in  subroutine  MULPTH,  which  calculates  the  propaga- 
tion factor  F.  The  rain-attenuated  signal  energy  for  IF  bandwidth  BIF  is  then 

S = S1F4 /tr[min  (Bu<rc,  1)J,  (318) 

where  the  bandwidth  adjustment  is  consistent  with  matched- filter  analysis. 

The  four  components  that  are  considered  to  be  contributory  to  noise— thermal  noise, 
jamming,  sea  clutter,  and  rain  backscatter— are  calculated  through  entry  NOISE. 

Thermal  noise  energy  is  determined  from 

Nt  - FnkT0,  (319) 

where  Fn  is  the  receiver  noise  figure,  h is  Boltzmann’s  constant,  and  T0  is  the  system 
temperature  in  degrees  Kelvin. 
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Jamming  energy  Ej  and  sea  clutter  Ec  are  calculated  by  subroutine  JAM  and  are  mod- 
ified by  A r to  include  the  effects  of  rain  attenuation. 


Rain  backscatter  energy  is  computed  according  to 

6 orSIct 

E D — I 

oF4f2(6) 


(320) 


where  Ic  is  the  rain-clutter  improvement  factor  and  the  factor  6 represents  the  effect  of 
averaging  returns  for  rain  in  the  resolution  cell  over  many  multipath  fade  and  reinforcement 
regions  in  radar  modes  affected  by  multipath  propagation. 

The  noise  energy  EN , including  jamming  and  rain  backscatter  but  not  sea  clutter,  is 

en  = (nt  + EJ  + Er)  max  (Biftc,  1),  (321) 

where  the  adjustment  to  the  total  energy  allows  for  increased  noise  due  to  an  unmatched 
IF  bandwidth.  The  sea-clutter  energy  Ec  is  also  adjusted  to  allow  for  an  unmatched  IF 
bandwidth  and  returned  separately. 


Table  28  - SIGNAL  Variables 


Fortran  Variable 

Description 

AMBN 

Thermal  noise  energy  («/)  ( NT  in  Eq.  319) 

EC 

Sea-clutter  energy  (J)  (Ec  in  text  between  Eqs.  319  and  320) 

EJ 

Jamming  energy  ( J ) ( E j in  Eq.  321) 

EN 

Noise  energy  (J),  including  thermal  noise,  jamming,  and  rain  back- 
scatter, but  excluding  sea  clutter  (EN  in  Eq.  321) 

ENVIR(4) 

Rainfall  rate  (mm/h)  (r  in  Eq.  314) 

ES 

Signal  energy  (J)  (S  in  Eqs.  318  and  320) 

FAC 

Propagation  factor  (F  in  Eq.  318) 

FHV(l) 

Beam-pattern  factor  (power)  ( f(0 ) in  Eq.  310) 

IMODE(J.l) 

Number  of  pulses  integrated 

IMODE(J,2) 

max  (Burr,,,  1)  for  mode  J (rounded  to  the  nearest  integer) 

(Eq. 321) 

PWR 

Power  received  (W)  (Pr  in  Eq.  309) 

R 

Range  R (n.mi.) 

RA 

Two-way  rain  attenuation  ( Ar  in  Eq.  317) 

RC(3) 

Receiver  noise  figure  ( Fn  in  Eq.  319) 

RC(4) 

Horizontal  3-dB  beamwidth  (rad)  (0B  in  Eqs.  312  and  315) 

RC(5) 

Vertical  3-dB  beamwidth  (rad)  (4g  in  Eqs.  312  and  315) 

RC(6) 

Antenna  gain  one  way  with  respect  to  the  omnidirectional  case 
(G  in  Eq.  308) 

RC(8) 

Receive  antenna  loss  (dB)  (LR  in  Eq.  308) 

RC(9) 

Loss  between  the  transmitter  output  and  free  space  (LT  in 

Eq. 308) 

Table  continue!. 
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Table  28  (Concluded)  SIGNAC  Variables 


Fortran  Variable 

Description 

RC(10) 

Boltzmann’s  constant  times  the  system  temperature  ( k 'f'(j  in 

Eq.  319) 

RM 

Range  (rn)  (ft  in  Eqs.  312,  315,  and  317) 

RMODE(J,3) 

Peak  power  (W)  for  mode  J (ft,  in  Eq.  308) 

RMODE(J,4) 

Pulse  length  for  mode  J (r  in  Eq.  309) 

RMODE(J,8) 

Mode-dependent  loss  for  mode  J (LM  in  Eq.  308) 

RMODE(J,12) 

Intermediate- frequency  bandwidth  (Hz)  (Bj,,-  in  Eqs.  318  and 

321)  a i 

RMT 

Range  to  the  fourth  power  (m4  ) (ft1  in  Eq.  308) 

RNCS 

Rain  cross  section  for  rain  in  the  resolution  cell  (m2 ) (a1{  in 

Eqs.  311  and  315) 

SIGEN 

Signal  energy  (J),  same  as  ES  (.S’  in  Eqs.  318  and  320) 

SMODE(J,2) 

Rain-clutter  improvement  factor  (/,.  in  Eq.  320) 

TARCS 

Target  cross  section  (m2 ) (o  ir.  Eq.  308) 

TAU(NEXT) 

Compressed  pulse  length  (s)  (rc  in  Eqs  312,  315,  318,  and  32 1 ) 

WVL 

Wavelength  (m)  (X  in  Eqs.  308,  313,  315,  and  317) 

XNMTOM 

Conversion  factor  (nautical  miles  to  meters) 

Subroutine  TARGET 

Subroutine  TARGET  is  called  once  by  the  executive  routine.  Its  purpose  is  to  read  in 
target  and  jammer  characteristics  and  trajectory  data,  which  it  converts  from  kilofeet, 
seconds,  and  watts  per  megahertz  to  internal  units  (nautical  miles,  hours,  and  watts  per 
hertz)  for  use  by  other  subroutines.  In  addition,  preliminary  calculations  are  performed  for 
maneuvering  targets,  and  the  coefficient  array  for  computations  of  target  radar  cross  sec- 
tions is  determined. 

A maximum  of  20  targets  (to  be  detected)  and  jammers  (additional  sources  of  jamming 
radiation)  in  any  combination  may  be  defined.  The  first  input  card  read  by  subroutine 
TARGET  specifies  the  number  of  targets  NTAIIG  and  then  the  number  of  jammers  N.JAM. 
Each  target  or  jammer  is  defined  by  a pair  of  cards;  the  NTARG  pairs  of  cards  immediately 
following  the  first  input  card  define  the  targets,  and  the  next  NJAM  pairs  of  cards  define 
the  jammers  (Table  29). 

The  initial  card  (of  the  pair)  for  a target  (or  jammer)  contains  the  following  data: 

XYZI  — Initial  position  coordinates  and  time  (x,  y,  z,  t ),  (kft  and  s), 

XYZF  — Final  position  coordinates  and  time  (x,  y,  z,  t)f  (kft  and  s),  with  if  being 
ignored  for  a maneuvering  target  (ITYPE  ■ 2), 

SIGTAR  — Head-on,  broadside,  and  minimum  radar  reflective  areas  <m2), 

SIGJAM  — Jamming  power  density  (W/MHz), 

MODEL  - Marcum-Swerlingcross-section  model  number. 
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The  contents  of  the  second  card  varies  according  to  the  value  of  its  first  parameter 
ITYPE,  which  specifies  which  of  the  three  defined  types  of  flight  profiles  the  target  will 
follow.  Target  profile  type  0 (ITYPE  = 0)  consists  of  a straight-line  trajectory  from  the 
initial  position  to  the  final  position.  The  target’s  constant  speed  is  determined  from  the 
initial  and  final  times  specified  for  these  positions.  Therefore  the  second  card  for  a target 
of  type  0 is  blank  (but  cannot  be  omitted). 


Target  profile  type  1 (ITYPE  = 1)  is  defined  as  a piecewise  linear  trajectory  consisting 
of  from  two  to  four  altitude  legs.  These  legs  are  determined  by  specifying  from  one  to  three 
altitude  nodes  and  corresponding  arrival  times.  Therefore  the  complete  trajectory  consists 
of  straight-line  segments  between  altitude  nodes,  with  the  projection  of  the  profile  on  the 
xy  plane  being  a straight  line  between  the  initial  and  final  positions.  The  second  card  for  a 
type-1  target  contains  the  following  data: 

ITYPE(J)  — Target  profile  type  (1), 

NALT(J)  — Number  of  altitude  nodes, 

ALT(J,1)  — First  altitude  (node)  (kft), 

TALT(J,1)  — Time  of  arrival  at  the  first  altitude  (s), 

ALT(J,2)  — Second  altitude  (node)  (kft), 

TALT(J,2)  — Time  of  arrival  at  the  second  altitude  (s), 

ALT(J,3)  — Third  altitude  (node)  (kft), 

TALT(J,3)  — Time  of  arrival  at  the  third  altitude  (s). 

Target  profile  type  2 (ITYPE  = 2)  is  defined  at  a constant  altitude  and  consists  of  a 
straight-line  trajectory  from  the  initial  position  at  the  defined  speed  and  heading  to  a 
specified  time  when  the  maneuver  begins.  The  maneuver  (turn)  occurs  in  the  horizontal 
plane  according  to  the  specified  g capability.  The  maneuver  terminates  when  the  target  is 
heading  toward  its  final  position,  at  which  time  the  profile  returns  to  a straight-line  trajec- 
tory to  the  target’s  endpoint. 

The  second  card  for  a type  2 target  contains  the  following  data: 

ITYPE(J)  - Target  profile  type  (2), 

SPEED(J)  — Target  speed  (kft/s), 

HEADI(J)  — Initial  target  heading  (deg), 

TMANI(J)  — Time  at  which  the  maneuver  begins  (s), 

GTURN(J)  — Radial  acceleration  of  the  maneuver  (g’s). 

For  each  target  defined  with  a type-2  trajectory  the  calculations  that  follow  are  per- 
formed in  addition  to  the  scaling  of  parameters. 

Let  A denote  the  distance  traveled  by  the  target  from  its  initial  position  to  the  point 
of  maneuver: 


-*i). 


(322) 


where  v is  the  speed  of  the  target,  tm  is  the  time  the  target  starts  its  maneuver,  and  it  is  the 
time  the  target  leaves  its  initial  position.  The  coordinates  of  the  point  (*m  , ym  ) where  the 
maneuver  begins  are 

xm  - x,  + A cos  (fy)  (323a) 
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and  1 


y m = y,  + A sin  (fy),  (323b) 

where  x,  is  the  x coordinate  of  the  target’s  initial  position,  y,  is  the  y coordinate  of  the  tar- 
get’s initial  position,  and  ht  is  the  initial  heading  of  the  target.  To  determine  if  the  maneuver 
is  clockwise  or  counterclockwise  (looking  into  the  xy  plane),  the  heading  of  the  vector  de- 
fined from  the  point  of  maneuver  to  the  target’s  final  position  is  computed: 

hm  =cos'1  (\xf-xm)l[(xf-xm)2  + (yf  -ym  )2] 1/2),  (324) 

where  Xf  is  the  x coordinate  of  the  target’s  final  position  and  is  the  y coordinate  of  tar- 
get’s final  position.  If  h ( < 7r  and  either  hm  < ht  or  hm  > /i(  + 7 r,  or  if  /i(  > 7r  and  both  hm  < 
h,  and  hm  > h i - ir  (the  point  (Xf,  y f)  lies  to  the  right  of  the  initial  heading  vector),  then 
the  maneuver  is  clockwise  and  flagged  by  TURN  = -1.  Otherwise  the  maneuver  is  counter- 
clockwise with  TURN  = 1. 

The  radius  of  the  maneuver  circle  is 


rm  = v2lg,  (325) 

where  v is  the  target  speed  and  g is  the  radial  acceleration  of  the  target  maneuver. 

The  center  (xc,  yc)  of  the  maneuver  circle  is 

xc  = xm  + rm  cos  (hi  + TURN  ir/2)  (326a) 

and 


y c = ym  + Tm  sin  (fti  + TURN  tt/2).  (326b) 

If 

d-Uxf-xe)2  +(yf-yc)2]112  <rm,  (327) 


then  the  target’s  final  position  lies  inside  the  maneuver  circle,  so  the  maneuver  is  impossible, 
and  the  target  is  deleted  from  further  consideration. 

Let  o and  /5  be  defined  by 

0 = 008''  [(x^  - xc)ld]  (328) 

and 

0 = sin'1  [rm/d].  (329) 

The  heading  hf  of  the  target  as  it  terminates  its  maneuver  and  begins  its  final  leg  is  then 

hf  = a + TURN  0,  sina>0,  (330a) 

= 2tt  - a + TURN  0 , sin  a < 0.  (330b) 
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The  point  (*„ , yn ) where  the  target  terminates  its  maneuver  is 


xn  = xc  + rm  cos  (hf  - TURN  ir/2) 

(331a) 

and 

y„  = yc  + rm  sin  ( hf  - TURN  tt/2), 

(331b) 

and  the  time  tn  the  target  reaches  (xn , y„ ) is 

tn  = tm+  v(Ah)/g, 

(332) 

where 

Ah  = hf-hi,  (hf-hi)>  0, 

(333a) 

= hf  - ht  + 2ir,  (hf-hi)<0. 

(333b) 

The  time  tf  the  target  arrives  at  its  final  position  is 

tfmtn  + [lxf-xn)2  + (y,-yn)2],/2/c. 

(324) 

(The  final  time  specified  as  input  for  a type-2  target  is  ignored  and  may  be  omitted.) 

The  concluding  calculations  performed  in  subroutine  TARGET  are  those  to  determine 
the  coefficient  array  [A]  for  radar  cross  sections  of  a target.  It  is  assumed  that  a target’s 
radar  cross  section,  as  viewed  circumferentially,  generates  a lobing  structure  and  that  this 
structure  can  be  represented  by  a linear  combination  of  the  functions  cos  20,  cos  40,  and 
cos  HO,  where  0 is  the  angle  between  the  line  of  sight  to  the  target  and  the  target’s  broadside 
axis  (Fig.  15).  Thus 

a(0)  = A j cos  20  + A^  cos  40  + A3  cos  80  + A4.  (335) 


Fig.  16  — Geometry  used  in  determining  radar 
cross  section  of  a target 
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Expressions  for  the  coefficients  4,  as  functions  of  the  broadside,  head-on,  and  mini- 
mum cross  sections  are  developed  as  follows.  First  the  expression  for  ot(0)  is  differentiated 
and  expressed  in  terms  of  cos  0 and  sin  20 : 

a'(0)  = 2Ai  sin  20  + 842(2  cos 20  - 1)  sin  20 

+ 3243(16  cos 60  - 24  cos 40  + 10  cos 20  - 1)  sin  20.  (336) 

It  is  now  assumed  that  the  minimum  radar  cross  section  occurs  at  0 = n/3,  or  60°  off  broad- 
side. (This  is  consistent  with  measurements  made  on  the  type  of  aircraft  that  is  normally 
encountered  in  applications.)  Setting  a'  = 0 and  cos  0 = - 1/2  in  Eq.  336  yields 


443  - 2A2  + 4 j = 0.  (337) 

For  0 = 0 the  radar  cross  section  is  given  by  the  input  value  for  the  broadside  cross  section 
B These  values  together  with  Eq.  337  reduce  Eq.  335  to 

£*(0)  = 342  - 343  + 4A2  = B.  (338) 

For  0 = n/2  the  radar  cross  section  is  given  by  the  input  value  for  the  normal  cross  section  N\ 
hence 


;i 

y 

j 

.• 

‘ - f 


-A2+5A3+A4=N.  (339) 

For  0 = n/3  the  radar  cross  section  is  given  by  the  input  minimum  value  M.  This  yields 

- 3A2  + 3A3  - 2A4  = 2M.  (340) 

Solving  Eqs.  337  through  340  for  A±,  A2,  A3,  and  A4  gives  the  results 


B + 2M 

II 

(341a) 

B + 3N  -4A4 

A*~  12 

(341b) 

A 2 = 5.4 3 - N + A4, 

(341c) 

4 j = 24  2 - 44  3 . 

(341d) 

A set  of  four  such  coefficients  is  calculated  for  each  target. 
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Table  29  — TARGET  Variables 


Fortran  Variable 

Description 

A(J,I) 

Coefficients  calculated  for  use  in  determining  target-/  radar  cross 
sections  (A  j , A2,  A 3,  and  A4  in  Eqs.  335  and  341) 

ALT(J,I) 

Altitude  of  profile  node  / of  target,/  with  ITYPE(J)  = 1 

CARD(I) 

Temporary  storage  for  the  input  parameters  from  the  second 
data  card  for  the  target 

CM(J,1) 

Coordinate  x of  the  center  of  the  maneuver  circle  for  target  J 
with  ITYPE(J)  = 2 (jcc  in  Eq.  326a) 

CM(J,2) 

Coordinate  y of  the  center  of  the  maneuver  circle  for  target  J 
with  ITYPE(J)  = 2 (yc  in  Eq.  326b) 

DELR 

Distance  from  the  center  of  the  maneuver  circle  to  the  final  posi- 
tion for  target  J with  ITYPE(J)  = 2 (d  in  Eq.  327) 

GTURN(J) 

Radial  acceleration  for  the  maneuver  by  target  J with  ITYPE  = 2 
(g  in  Eq.  325) 

HEADF(J) 

Final  heading  of  target  J with  ITYPE(J)  = 2 ( h , in  Eqs.  330) 

Initial  heading  of  target./ with  ITYPE(J)  = 2 ( fii  in  Eqs.  323) 

HEADl(J) 

ITYPE(J) 

T>  pe  of  target  profile  for  target  J : 

0 = straight-line  trajectory 

1 = altitude  legs 

2 = maneuver 

MODEL(J) 

Indicator  of  the  Marcum-Swerling  cross-section  model  for  tar- 
get,/ 

NALT(J) 

Number  of  altitude  nodes  for  target  J with  ITYPE(J)  = 1 

NJAM 

Number  of  jammers 

NTARG 

Number  of  targets 

NUMTGT 

Total  number  of  targets  plus  jammers 

RADM(J) 

Radius  of  the  maneuver  circle  of  target  J with  ITYPE  = 2 

SIGJAM(J) 

Jamming  power  for  target  J (W/MHz  to  W/Hz) 

SIGTAR(J,1) 

Head-on  radar  cross  section  for  target  J (m2 ) ( N in  Eq.  339) 

SIGTAR(J,2) 

Broadside  radar  cross  section  for  target  J (m2)  (B  in  Eq.  338) 

SIGTAR(J,3) 

Minimum  radar  cross  section  for  target  J (m2)  ( M in  Eq.  340) 

SPEED(J) 

Speed  of  target  J with  ITYPE(J)  = 2 (v  in  Eq.  325) 

TALT(J,I) 

Time  when  target  J with  ITYPE(J)  = 1 arrives  at  altitude  node  / 

TMANF(J) 

Time  when  target  J with  ITYPE(J)  = 2 terminate'  its  maneuver 
(tn  in  Eqs.  332  and  334) 

TMANI(J) 

Time  when  target  J with  ITYPE(J)  = 2 begins  its  maneuver  (tm 
in  Eq.  322) 

TURN(J) 

Indicator  for  a counterclockwise  (1)  or  clockwise  (-1)  maneu- 
ver for  target  J with  ITYPE(J)  = 2 

XHEAD 

Heading  of  the  vector  defined  from  the  point  the  maneuver  be- 
gins to  the  final  position  of  target  J with  ITYPE(J)  = 2 (hm 
in  Eq.  324) 

XMANF(J.l) 

Coordinate  x for  the  point  where  target  J with  ITYPE(  J)  = 2 
terminates  its  maneuver  (xn  in  Eqs.  331a  and  334) 

XMANF(J,2) 

Coordinate  y for  the  point  where  target  J with  ITYPE(J)  = 2 
terminates  its  maneuver  (yn  in  Eqs.  331b  and  334) 

Table  continue 


i V 
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Table  29  (Concluded)  - TARGET  Variables 


Fortran  Variable 

Description 

XMAN1(J,1) 

Coordinate  x for  the  point  where  target./  with  ITYPE(J)  = 2 
begins  its  maneuver  (xm  in  Eq.  323a) 

XMAN1(J,2) 

Coordinate  y for  the  point  where  target  J with  ITYPE(J)  = 2 
begins  its  maneuver  (y„,  in  Eq.  323b) 

XYZF(J.l) 

Final  coordinate  x for  target  J (kf  to  n.mi.)  (Xf  in  Eqs.  324 
and  334) 

XYZF(J,2) 

Final  coordinate  y for  target  J (kft  to  n.mi.)  ( >y  in  Eqs.  324  and 
334) 

XYZF(J,3) 

Final  coordinate  z for  target  J (kft  to  n.mi.) 

XYZF(J,4) 

Final  time  for  target  J (s  to  h)  (tf  in  Eq.  334) 

XYZI(J.l) 

Initial  coordinate  x for  target  J (kft  to  n.mi.)  (x,  in  Eq.  323a) 

XYZ1(J,2) 

Initial  coordinate  y for  target  J (kft  to  n.mi.)  (y,  in  Eq.  323b) 

XYZI(J,3) 

Initial  coordinate  z for  target./  (kft  to  n.mi.) 

XYZI(J,4) 

Initial  time  for  target./ (s  to  h)  (f,  in  Eq.  322) 

Subroutine  TARSIG 

Subroutine  TARSIG  is  called  by  subroutine  SIGNAL  to  calculate  the  radar  cross  sec- 
tion of  target  JTAR  at  a given  aspect  angle  0 (Table  30).  It  is  assumed  that  the  target’s  radar 
cross  section  a generates  a lobing  structure  which  can  be  represented  by  a linear  combina- 
tion of  functions  of  the  form  cos  2k0 , so  that 

a(0)  = A j cos  20  + A2  cos  40  + A3  cos  8 0 + A4,  (342) 

where  0 is  the  angle  between  the  line  of  sight  from  the  radar  to  the  target  and  the  target’s 
broadside  axis  (Fig.  15).  The  coefficients  A,  are  functions  of  the  target’s  head-on  and 
broadside  radar-cross-section  input  values  and  of  the  minimum  radar  cross  section  en- 
countered over  the  anticipated  range  of  aspect  angles,  also  an  input  value.  A set  of  these 
weighting  factors  Ai  is  calculated  for  each  target  in  subroutine  TARGET. 


I 


; 


i 

. 


Table  30  - TARSIG  Variables 


Fortran  Variable 


Description 


A(JTAR,I) 

DOTP(JTAR) 

TARCS 

TEMP(2) 

TEMP(3) 

TEMP(4) 


Coefficients  for  target  JTAR  calculated  in  subroutine  TARGET 
(A,  in  Eq.  342) 

Cosine  of  the  angle  (tt/2)  - 0 between  the  line  of  sight  from  the 
radar  to  the  target  and  the  target’s  velocity  vector  (Fig.  15) 
Target  cross  section  (m2)  (a(0)  in  Eq.  342) 

- cos  20 
cos  40 
cos  SO 
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Subroutine  UFUN 

Subroutine  UFUN  is  called  by  subroutine  MULPTH  to  calculate  the  U functions  that 
are  used  in  determining  the  pattern-propagation  factor  f in  the  diffraction  region.  The  equa- 
tion as  given  by  Kerr  [71  for  the  pattern-propagation  factor  in  the  diffraction  region  is 

F = 2(TrX)ll2e-C'X\Ul(Zl)U1(Z2)],  (343) 

and  UFUN  evaluates  the  function  Uj  (Zj)  for  the  values  of  Zj  given  in  its  calling  sequence. 
The  term  Z.  is  alternatively  assigned  the  height  of  the  radar  (Z j ) and  the  height  of  the  target 
(Z2)  in  the  so-called  natural  units  discussed  in  the  subsection  on  subroutine  MULPTH. 

The  rationale  followed  in  evaluating  Ui(Zj)  is  as  follows:  The  term  f/j(Zy)  can  be 
expressed  in  terms  of  the  function  h2(x).  This  is  found  [7,  p.  109)  to  be 


U1(Zj)  = i 


^2 (^/  + -4  j ) 
*2^1 ) 


(344) 


The  quantity  A , is  calculated  in  MULPTH  and  corresponds  to  CA  in  the  calling  sequence 
(Table  31),  and  h'2  indicates  the  derivative  of  h2. 

The  function  h2(x)  can  in  turn  be  expressed  in  terms  of  Airy  functions: 

h2(x)  = i24l33ll6Ai(xeivl3).  (345) 

Expressions  for  evaluating  the  Airy  functions  are  found  in  Ref.  10.  The  Airy  function  is 

Ai(z)  =Cif(z)  -c2g(z),  (346) 

where  f(z)  and  g(z)  are  given  by  power  series  for  small  values  of  |z|: 


m = i + 


_i 

3! 


z3  + 


1-4 

6! 


+ 


1-4-7 

9! 


z9  + 


(347a) 


and 


g(z) 


z+1  z4 
4! 


2-5 

7! 


z7  + 


2-5-8 

10! 


z10  + 


(347b) 


For  values  of  |z|  > 3,  Ai(z)  is  approximated  by  an  asymptotic  expansion: 


Ai(z)  =»  y 7 r~1,2z~ll4e~t‘ 


I!  (-1  )knk»~k’ 

fe-0 


(348) 
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Table  31  - UFUN  Variables 


Fortran  Variable 

Description 

CA 

Function  of  the  complex  dielectric  constant  and  polarization, 
evaluated  in  MULPTH  (A  t in  Eq.  344) 

CA1 

A\e‘*la  (An  Airy-function  argument  in  Eq.  345,  represented 
by  z in  Eqs.  346  through  349) 

CA13 

(Aie‘"/3):1  (z3  in  Eq.  347a) 

CA14 

(A le1'"/3 )-i/4  (z_*/4  in  Eq.  348) 

CAIR 

The  feth  term  of  the  asymptotic  expansion  of  the  Airy  func- 
tion (Eq.  348)  with  argument  (Z,  + A i (e'"/3 

CA1RP 

The  feth  term  of  the  asymptotic  expansion  of  the  derivative  of 
the  Airy  function  with  argument  A ie'"/3 

CANS 

Function  used  to  determine  the  propagation  factor  in  the 
diffraction  region  (t/j  in  Eqs.  343  and  344) 

CC 

(l/2)7r-1/2(CZ)-l/4e-8  (factor  in  Eq.348) 

CCP 

- (l/2)jr-1/2(CAI)1/4e-e  (factor  in  Eq.348) 

CDA 

2/3(Aie'"/3)3/2  (right-hand  side  of  Eq.  349) 

CDZ 

2/3[(Z,  + A]  )gi"/3 ] 3/2  (right-hand  side  of  Eq.  349) 

CFI 

/j(Z,  + AiJe'"/3]  summed  to  the  feth  term  (f(z)  in  Eq.  347a) 
f'(A\e>”l 3)  summed  to  the  feth  term 

CFIP 

CGI 

gj (Z;  + A]  )e«*/3]  summed  to  the  feth  term  (g(z)  in  Eq.  347b) 
g (Aie'"/3 ) summed  to  the  feth  term 

CGIP 

CH2 

fe  function  used  in  determining  U\  (fe2(^i  + A j ) in  Eq.  344) 

CH2P 

Derivative  of  the  h function  (h'2(A  j ) in  Eq.  344) 

Cl 

\J - 1 (i  in  Eqs.  344  and  345) 

COLDA 

Previous  value  of  CANS 

CXP3 

e»>/3  (Eq.  345) 

CZ 

(Z2  + A 1 )e‘”l 3 (an  Airy-function  argument  z) 

CZ3 

[(Z,  + A ] )e'W3  J 3 (z3  jn  Kq.  347a) 

CZ4 

( (Z,  + A 1 )e*»/3 ) -J/4  (z-1/4  in  Eq.348) 

I 

Counter  k indicating  which  term  of  the  power  series 
(Eqs.  347)  or  the  asymptotic  expansion  (Eq.  348)  is 
under  consideration 

IKEY 

Indicator  that  determines  which  expansion  to  use  for  the 

Airy  functions: 

0=  |CZ|  and  |CA1|<3 

1 = ICZ1  > 3 

2=  |CA1|  > 3 

3 = |CZ|  and  |CA1|>3 

ISWIT 

Indicator: 

0 = initial  pass  or  new  mode 

1 = same  mode  as  previous  pass 

OLDZ 

Value  of  Z,  on  the  previous  entry  to  UFUN 

RTPI 

0T 

XC1 

Constant  used  in  evaluating  the  Airy  function  (cj  in  Eq.  346) 

XC2 

Constant  used  in  evaluating  the  Airy  function  (C2  in  Eq.  346) 

XMUL1 

Coefficient  of  the  feth  term  of  the  power  series  for  f(z ) 

. (Eq. 347a) 

XMUL2 

Coefficient  of  the  feth  term  of  the  power  series  forg(z) 

(Eq.  347b) 

Z 

Height  of  the  point  in  space  under  consideration  (Z,  in 

Eq.  344) 
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where 


and 


2*3/2 

— . 

«0  = 1. 

r<3fc  + 1/2) 
54feA*r(/r  + 1/2) 


(349) 

(350) 


(351) 
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Appendix  A 


THRESHOLD  VALUES 


T 


This  appendix  is  a guide  in  setting  the  threshold  required  as  an  input  value  to 
SURDET2D  and  SURDET3D  (data  card  7,  described  on  pages  10  and  45).  It  will  be 
assumed  that  the  noise  is  Rayleigh  and  that  enough  reference  cells  are  used  so  that  there 
is  no  error  in  the  estimate  of  the  noise  power.  Then,  for  linear  video  and  a two- parameter 
threshold  of  the  form  (Eqs.  62  and  126) 

T=‘h  + F26  (Al) 

the  appropriate  value  of  F2  can  be  found  in  Robertson*.  For  linear  video  and  a one- 
parameter  threshold  of  the  form  (Eqs.  63  and  127) 

T=Fxp,  (A2) 

the  appropriate  value  of  Fj  can  be  found  from 

(A31 

where  Af  is  the  number  of  pulses  integrated.  For  log  video  and  a threshold  of  the  form 
(Eqs.  64  and  128) 


T = /i  + F3  (A4) 

the  appropriate  value  of  F3  can  be  found  by  Monte  Carlo  techniques  employing  importance- 
sampling techniques. 

For  a probability  of  false  alarm  equal  to  lO"6  the  appropriate  values  of  Ft  are  given  in 
0 Table  Al. 


Table  Al  — Threshold  Values  for  Fx , F2,  and  F3 


Type  of  Video 

Threshold  Type 

Threshold  Value  for  a Given  Number  of  Samples 

1 

2 

4 

8 

16 

32 

64 

128 

Linear 

T-fiP  . 

6.10 

5.85 

5.62 

5.40 

6.25 

5.12 

6.04 

4.96 

Linear 

T - p ♦ Fta 

4.19 

3.16 

2.47 

2.00 

1.69 

1.47 

1.33 

1.23 

Log 

T-  p ♦ f 3 

1.59 

2.63 

4.24 

6.55 

9.78 

15.0 

22.3 

32.0 

*G.H.  Robertson,  “Operating  Characteristics  for  a Linear  Detector  of  CW  Signals  in  Narrow-band  Gaussian 
Noise,"  Bell  Syit  Tteh.  J.  46,755  774  (Apr.  1967). 
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Appendix  B 

PROGRAM  LISTINGS  OF  ROUTINES  EXCLUSIVE  TO  SURDET2D 


0001 


PROGRAM  SUROET 


THIS  IS  THE  SURDE T PO  EXECUTIVE  ROUTINE 


DESCRIPTION  OF  DATA  CARDS 


DATA  CARD  NO.  1 

DETAILED 
n • 
1 * 
i * 


OUTPUT  CONTROL  INTEGER 
N*  OUTPUT  TO  BE  PRINTED 
DETECTION  OUTPUT  TO  BE  PRINTED 
DETAILED  OUTPUT  TO  BE  PRINTED 


(IS  FORMAT) 


DATA  CARD  NO.  Z 


TITLE  CARO 
1 RADAR 


- RUN  IDENTIFICATION  (IA.19AA  FORMAT) 

ID  NUMBER  FOR  TARGET  DE1ECTION  OUTPUT  FILES 


Z-20  ALPHANUMERIC  DESCRIPTIVE  TITLE 


C 
C 

c 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


DATA  CARD  NO.  3 


SHIP  (RADAR)  POSITION  (AFB.Z  FORMAT) 

1-3  P 0 S l II  ON  COORDINATES  (X,Y ,Z)  IN  XFI 
A SHIP  HEADING  IN  DEGREES 


DATA  CARD  NO. 


11  BASIC  RADAR  PARAMETERS  ( 9F H . Z , I Z • F 6 . Z FORMAT) 

1 RADAR  FREQUENCY  IN  MHZ 
Z ANTENNA  PATTERN  FUNCTION  INDICATOR 

0 « PENCIL  BEAM 

1 = COSECANT  SQUARE  BEAM 
3 RECEIVER  NOISE  IN  OB 

A HORIZONTAL  3i)B  BEAMWIDTH  IN  DEGREES 
S VERTICAL  30B  BEAMNIDTH  IN  DEGREES 
b ONE-WAY  ANTENNA  GAIN  IN  OB 
/ ONE-WAY  SIDELOBE  LEVEL  IN  CR  DOWN 
R RfCEIVEP  LOSS  IN  OB 
9 TRANSMITTER  LOSS  IN  DB 
ID  NUMBER  OF  SCAN  MOOES 
11  LINFAR  POLARIZATION  IN  DEGRFES 
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0  » HOR  TEONEAl 

•»o  * vertical 


DATA  C AW  OS  NO.  S AND  h 


(ONE  St!  FOR  EALH  RADAR  SCAN  OODE) 


15  PARAMETERS  FOR  EACH  SCAN  OOOl  ( 1 OFB  . 2/5F  8.  2 FOROAT) 
1 LOWTR  BOUNDARY  ELEVATION  ANCLE  COVERAGE  IN  DEGREES 
IIPRrR  BOUNDARY  ELEVATION  ANGLE  COVERAGE  IN  DEGREES 
prAR  POWER  IN  OW 
PULSE  LENGTH  IN  OICROSECONOS 
INTERLOCK  PERIOD  IN  SECONDS 
SCAN  OFFSET  IN  SECONDS 
INSTRliOf NEED  RANGE  IN  NOT 
OODF  OFPFNDENI  EOSS  IN  DB 
NU0B1R  OF  PULSES  I N EE  GRATE  D 
COOPRf  SSf  0 PULSl  LENGTH  IN  OICROSECONOS 
S' A CLUTTER  IOPROVEOENT  FACTOR  IN  OB 
I.F.  BANDWIDTH  IN  OM l.  IF  Oi  BANDWIDTH  WILL  BE  SET 
AT  I • 0/ ( COOP Rt  S Sf  II  PULSE  LENGTH) 

IT  OODT  DEPENDENT  FREOUENCY  INCREOFNT  IN  0H2 
15  HIANKING  TIOE  IN  OICROSECONOS.  IF  0,  SEE  AT 
PULSE  LENGTH 

15  PAIN  CLUTTER  IOPROVEOENT  FACTOR  IN  DB 


2 

3 

A 

5 

A 

7 

H 

9 

10 

11 

12 


DATA  CARO  NO.  / 


c 

7 PAR 

A*f  T f R 

(. 

1 

HI . OF 

c 

? 

a u i t e 

c 

3 

no.  of 

c 

4 

N*.  OF 

c 

ST  ill 

c 

5 

vine  n 

c 

c 

c 

6 

NO.  OF 

RARAOf  TERS  f OR  OOVING  WINDOW  QEITCTOR 


GED  INTO  A SINGLE  DtlFCTION 
E INDICATOR 
LINEAR  V IDT  0 
LOG  VIDEO 


OR 

CTFR.2  FOROAT) 

I OE 

OF  TARGET  CELL 

IN  T 

HRE  SHOLD 

ssen 

AND  DETECTIONS 

T ION 

THRF 

SHOLD 

0 « ALL  CELLS  USLD 

<D  . SOALLER  HALF  USED 
>0  « LARGER  HALF  USE 0 
PARAOF  TFR  S USfD  TO  CALCULATE  THRESHOLD 

1 » OF  AN  USED 

2 * OE  AN  AND  VARIANCE  USED 


DATA  CARD  NO.  H 

NUOHfk  or  TARGETS  AND  JANKERS  <215  e OR  o a e ) 


1 
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i 
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C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

t 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


1 NO.  OF  TARGETS 

2 NO.  OF  JAMMERS 


DATA  CAROS  NO.  9 AND  10  (ONF  SET  FOR  EACH  TARGET  AND  JAMMER) 

CARO  9 13  TARGET  PARAMETERS  (12F6.2.I3  FORMAT) 

TARGET  TRAJECTORY  SHOULD  NOT  CROSS  0 DEGREES  IN  AZIMUTH 

1- 4  INITIAL  COORDINATES  <X, Y,Z,T)  IN  KF T AND  SECONDS 
S-8  TERMINAL  COORDINATES  (X,Y,/,T)  IN  KFT  AND  SECONDS 

9-11  RADAR  REFLECTIVE  AREAS  FOR  HEAD-ON. 

MROAD-SIDF.  ANO  MINIMUM  IN  SQ.  METERS 

12  JAMMING  POWER  DENSITY  IN  W/HHZ 

13  MARCUM  SWERLING  CROSS  SECTION  MODEL 

CARD  10  TARGET  PROFILE  PARAMETERS  (I4.TF6.2  FORMAT) 

1 TARGET  PROFILE  TYPE 

0 * STRAIGHT  LINE  TRAJECTORY 

1 = 2-4  ALTITUDE  LEGS 

2 * G-MANEUVER  AT  CONSTANT  ALTITUDE 
REMAINING  PROFILE  PARAMETERS  BY  TARGET  TYPE 

IF  TARGET  TYPE  * 0 

2- 8  IGNORED 

IF  TARGET  TYPE  = 1 

2 « NO.  OF  ALT ITUOE  NODES 

3 * FIRST  ALTITUDE  NODE  IN  KFT 

4 = TIME  OF  ARRIVAL  AT  FIRST  NODE  IN  SEC 
4 = SECOND  ALTITUDE  NODE  IN  KFT 

b * TIME  OF  ARRIVAL  AT  SECOND  NODE  IN  SEC 
T = THIRO  ALTITUDE  NODE  IN  KFT 
8 = TIME  OF  ARRIVAL  AT  THIRD  NODE  IN  SEC 
IF  TARGET  TYPE  = 2 

2 = TARGET  SPEED  IN  KFT /SEC 

3 = INITIAL  HEADING  IN  DEGREES 

4 = TINE  MANEUVER  BEGINS  IN  SEC 

5 = TARGET  MANEUVER  RADIAL  ACCELERATION  IN  G "S 


DATA  CARD  NO.  11 

4 ENVIRONMENTAL  PARAMETERS  C4F8.2  FORMAT) 

1 MINI)  SPEED  IN  KNOTS 

2 HEIGHT  OF  WINO  SPEED  MEASUREMENT  IN  KFT 

3 MULTIPATH  INDICATOR 

1 = MULTIPATH 
0 - NO  MULTIPATH 

4 RAINFALL  RATE  IN  MM/HR 


1 
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C 

r. 

c 

c 

c 

c 

c 

c 

c 

t 

r. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r. 

r. 

c 

r. 

c 

c 

t. 

t 

c 

c 

c 

c 

r. 

L 

c 


DATA  CAKD  NO.  1/ 

<»  FIX'D  CLUTTER  PARAMETERS  (2I8.7F8.Z  FORK*!) 

1 INITIALIZATION  FOR  RANDOM  NUMBER  GENERATOR  FOR 
GFNFRATION  OF  FIXED  CLUTTER  POINTS 

2 NO.  OF  P I XFD  CLUTTER  POINTS 

3 PRORARILIIT  THAT  CLUTTER  POINT  IS  DETECTED 

4 INITIAL  RANGE  OF  CLUTTER  AREA  IN  XFT 

5 FINAL  RANGE  OF  CLUTTER  AREA  IN  XFT 

A STANDARO  DEVIATION  OF  RANGE  ME  ASURI ME  NT 

AS  A PERCENTAGE  OF  RANGE  RESOLUTION  CELL  SI'E 
7 INITIAL  AZIMUTH  OF  CLUTTER  AREA  IN  DEGREES 
B FINAL  AZIMUTH  OF  CLUTTER  AREA  IN  DEGREES 
9 STANDARD  DEVIATION  OF  AZIMUTH  ME  ASUREMFNT 
AS  A PERCENTAGE  OF  HORIZONTAL  3DB  REAMMIDTH 


DATA  CARD  NO.  13 

2  RASIC  VARIABLE  CLUTTER  PARAMETERS  (218  FORMAT) 

1 initialization  for  random  number  generator  for 
GFNFRATION  OF  VARIABLE  CLUTTER  POINTS 

2 NO.  OF  CLUTTER  REGIONS 


DATA  CARD  NO.  14  (ONE  CARO  FOR  EACH  CLUTTER  REGION) 

S PARAMETERS  FOR  EACH  CLUTTER  REGION  (SF8.2  FORMAT) 

1 AVERAGE  NUMBER  OF  CLUTTER  POINtS  IN  REGION 

2 INITIAL  RANGE  OF  CLUTTER  AREA  IN  XFT 

3 FINAL  RANGE  OF  CLUTTER  AREA  IN  XFT 

4 INITIAL  AZIMUTH  OF  CLUTTER  AREA  IN  DEGREES 

5 FINAL  AZIMUTH  OF  CLUTTER  AREA  IN  DEGREES 


DATA  CARD  NO.  IS 

4 ROLL  AND  PITCH  PARAMETERS  (4F8.2) 

1 MAXIMUM  ROLL  ANGLE  IN  DEGREES 

2 MAXIMUM  PITCH  ANGLE  IN  DEGREES 
J KOLl  PER  1 00  IN  SFCONOS 

4 PITCH  PERIOD  IN  SECONDS 


DATA  CARD  NO.  IA 
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ooo* 

ooos 

Oooo 

00  0 7 


oooh 

0000 

0010 

00  1 1 
00  1? 
00  I 1 
001* 
ooio 

00  I* 
0017 
00  1H 
00  10 
oo?o 
00/1 
00?? 
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r.  TI»I  PARAMETER  (F8.2) 

C GA«C  TIME  (IN  SFC)  BY  WHICH  RADAR  IS  TO  BEGIN  SCANS 

c 

c 

c 

C DATA  CARD  NO.  17 

C 

c RicrcLf 

c 
c 
c 
c 
c 
c 
c 
c 

CCCCCCCCCl.CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

c 

COMMON  NSCAN.NE  XT  .NIJMTGT  • T , OLDT  ,ENOT  I M . SNOOF  { 30  .?0  ) 

1 , P I , P IOVR?  , TWOPI, RADIAN, TA'J(  10). DSTAR,DWL(  10) 

7 ,XY/I(/0,*),XY/F(?0,*),TR&PO$(20, 7 > ,S I G JA M( 2 0) 

1 , SIC  TAR (70, 3),EHV(20),SIGNAH, ISWIT.TEMPWR 

* .SHIP  <9  ),RC(  10  ),  RHODE  (30.12).  INODE  ( 10,?) 

COMMON/u/  ENVIA(10),SUBC(30),RE,CNM,CCM,ACON,QETA, 

• D0IP(?0 ),POt R7.IKE YF,XKTOMS,XNNTON,TARCS,WVL,FOPIQ8,FflPISQ 
COMMON/D/  ALPHA  t).  S IG?  , V , AR1  , AR?  , S IGC  • S I G 

COHMON/M/F AC*. AMBN.XJAHN, IRE YJG.XXXXX 
f,  OMMON/I / PBBS.HOF  K , T ME  T B A , DBD 0 WN, T HH. I MV . GN 

COROON/TN/Nt  ARG.N  JAM,  SPEED  (20),  HF  AD  1(20),  H£AOF(?0),  THANK  ?0), 

1 THANE (?0),XHANI(?0, 3),XHANF(?0, 3 ) , G T UR N( ?0 > , TURNC20), 

7 CH(?0,7),RADH(20), I T YP F ( 2 0 ) , Al T( ?0, S ) , T AL T ( 20 , S ) , NAL T{ ?0 > 

C0HHON/TS/TSTAT(20),TSCAN(20,30) 

COMMON  /CLTOUT / ROUT(?01),A?OUT(?01),ELOUT(201),T0UT(?0l), 

1 RLOU  T (70 1 ),PT  OUT ( 201 ),SOUT ( 201 ) , NC( 100), IC, I V 

COHHON  /DET/  NDI  T ( 20 ) ,HF R ( 20 ) , R ANGf ( 20 , 3 ) , A? ( 20 . 6 ) • SNDF T ( 20 , 3 ), 

I ELEV(?0,3),TIHE(?0) 

COMMON  /STAB/  R01L(20).PITCH(?0) 

DIMENSION  I T I TL1 (20 ) 

DIMENSION  BUFA(R,  100), BUF  (10) 

DIMENSION  BUFB ( S , 20 ) 

INTEGER  ANSI 
CALL  PI  STOP 
I OIJT  = 10 
CONV  = * • 1*79**819 
RE  - 8 19?  I7S.0* 

CNM  = 1 7,1  8H  1 . S * 7 * 

CCM*  lOOOoOOOOOO. 
rtETA  =.718S6SU?1 
AC  0N=  .60  7 70  IS  9.1 


CONTROL  PARAMETER  CIS  FORMAT) 

1 * NFW  SHIP  IN  WHICH  CASE 

THE  NEXT  DATA  CARD  IS  NO.  1 

2 = NEW  TARGETS 

3 * NFW  FNVIROHFNI 
* * RUN  COMPLETED 
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00?4 

XKIOM'.  61444444* 

00?6 

XM«TOM  = I H6?  • 

0076 

F nt>  ISC  -1  67.91  3670ft 

00 PI 

FOP  10 h =1  984  .401  71  1 

00  PH 

s 

OFR  = 0 

0020 

HIM)  6? , ANS 1 

OHIO 

6 ? 

f fiPMATd  6 16  ) 

00  31 

Rt  At)  600*  IflUf 

003? 

600 

F9«*AT( 14, 19A4  ) 

0033 

PR'NT  601,ITITU 

00  34 

60  1 

FORMAT (1  HI 9 I4,6X, 1 9 A4 ) 

00  3* 

CALL  IN/TAl 

00  36 

10 

CALL  TAROT  T 

0037 

t 

1 1 

CALL  1NVIRN 

A. 

c 

INIIIALI/E  CLUTTER  FOR  TRACKING 

00  38 

CAM  ff.  IN  IT 

00  39 

CALL  Vf.  'NIT 

c 

c 

INITIALIZE  ROLL  AND  PITCH 

0040 

r 

CALL  STHINT 

1 

c 

R F A')  IN  TIME  MY  WHICH  RAOAR  MUST  ME  INITIALI/LU 

0041 

READ  49,  R T N 1 T 

004? 

69 

FORMATE!  rf  .?) 

0043 

POINT  490,  RINIT 

0044 

c 

r 

690 

F OR  MA I ( l HO  f ' GAME  INITIALIZATION  MY  ',F8.?) 

ADI)  SCAN  OFF  ST  T (FROM  MOOT  1)  TO  MAX  RADAR  INITIALIZATION  TIME 

004S 

RINIT  KINIT/  3600.  4 RM00f(I,6> 

0046 

isc-o 

0047 

c 

1 K r YF  =0 

DFTTRMINf  TIMFS  f ACM  TARGET  COMES  WITHIN  INSTRUMENTED  RANGE 

c 

OF  f AC H RADAR  MODT 

00  4 H 

c 

c 

c 

CALL  MATCH 

DfTrRMINT  INITIAI  AND  FINAL  GAME  TIMES 

0049 

T = R MODT (1  ,9) 

0060 

c 

ENDTIM  = X Y Z F ( 1 ,43 

S»  f TARGETS  INITIALLY  TO  OVFR-THf -HORIZON 

0061 

T RGf'OS  (1*4)  = -1. 

00»? 

c 

If  (NSC AN  .LT.  ? ) GO  TO  1 7 

DETERMINE  INITIAL  TIME  FROM  MATCH 

006  3 

DO  16  J = ?,NSCAN 

0064 

IF (RMODf ( J, 9)  .LT.  T)  T = PM0DF(J,9) 

00  66 

1 6 

con  r iNtir 

0066 

c 

1 7 

IF (NT  ARC  .LI.  ?>  GO  TO  19 

Df  TER  MINT  FND  GAM)  TIME 

0067 

DO  1 8 I 1 , NT  ICf 
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0058 

0059 

0060 
0061 

006? 

0063 

0066 

0065 

0066 

0067 

0068 

0069 

0070 

0071 
00  7? 


0073 

0076 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
008? 
0083 

0086 

0085 

0086 

0087 

0088 


0089 

00<»0 

0091 

009? 


TRGP0S(I,6>  x -1. 

IF(XYZF(I,6)  .07.  t NO  TIM)  ENOTIN  x XY/F(I,6) 

18  CONTINUE 

19  CONTINUE 

t Sfcl  INITIAL  TINE  EBON  NATCH  30  SEC.  EARLIER  FOB  CLUTTER  SANPLES 

T = T - 3./160. 

C SET  INITIAL  0A8E  TINE 

T = ANIN1 (T,R IN1T ) 

C WRITE  ID  ON  DETECTION  OUTPUT  FILE 

TFNP  x ? 

TENPH  x RNOOEC I ,5 >»  )600. 

WRITE  CIOUT)  ITITLF(l)tTf NP.TEHP8 
C 

IF  (ANSI. TO. 0)  00  TO  20 
8ULxFNVIR(3) 

IF  ( NUL  .NE.  0 ) PRINT  506 
IF  < NUL  .FO.  0 ) PRINT  505 

506  FORNATC/,'  1111$  WITH  NULT 1PATH  33*1$',/) 

505  FORNAT(//,60X,  ' itlll  NO  NULTIPATH  *»**»',/) 

C 

C NEW  SCAN 

?0  ISC  = ISC  ♦ 1 

ICNI  * 0 
BUF(3)  = 0 

C SET  SCAN  PRINT  FL AO 

I PF  LAO  = 0 

C determine  taroft  AND  JANNER  POSITIONS  at  scan  tine  T 
CALL  NFWPOS 

c 

oo  75  J x l.NSCAN 
NEXT  * J 

C ?E»0  ARRAYS 

DO  25  I = 1 ,NT ARC, 

NOF  T(  I ) x o 
?5  NERCI)  = 0 

DO  10  I x 1.NTARO 
C CHECK  IF  TARGET  ACTIVE 

IF(ISTATd)  • NE . 1)  00  TO  70 

C CHECK  IF  TARGET  WITHIN  DETECTION  RANGE  OF  THIS  PACE 

IFOSCA.NC  I,  J)  .01.  T)  00  TO  70 
TENP  x RNODE(J.I)  - 0 .6  3 • RC  ( 5 ) 

T E NP?  = PNOOE ( J«? ) ♦ 0.6  3*PC(5 ) 

IF(TRGP0S(I,6)  .OF.  TE Np  .AND.  TRGP0SCI.6)  .LE. 

1 if  NP?  .AND.  TRGPO  S(  1 ,6*3  .LF.  RNOOECJ.T) 

? .AND.  TRGPOS( 1,6)  .01.  SN0DE(J,1>)  00  TO  30 
C TARGET  CANNOT  BE  DETECTED  BY  NODE  J 

GO  TO  70 

30  IF  (RC(I  ) * DWL(NIXT)  .NE.  OFR)  ISWIT  = 0 

OFRxRCtl )»0WL(NEXT  ) •*% 

RFR  =RC( 1 )/OFR 
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0093 

0004 

0003 

oooo 

0007 

0008 
oooo 

O'OO 

0101 

010? 

0103 

0104 

0105 

0106 

0107 

0108 

0100 

01 10 
0111 
01 1? 

0113 

0114 

0115 


0116 
0117 
01 1 H 
oiio 
01?0 
01?1 
01?? 
01  ?3 

0 I ?4 
0!  ?5 

01  ?f 
0 1 ? 7 

0 I ?R 

01?0 

01  30 
0131 
01  3? 
01133 
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RC(6)=CN/PFR4»? 

RC(4)*THH»RFR 
RC (S )=  THV4RFR 

PB3S  = RNO0E(NE  XT,1  ) ♦ RC(5)/?. 

C 

ALPHAD  = 0 

sroc  = o 
sir.  =o 

ARl  = 0 

AP?  = 0 

V = 0 

C CHECK  FOR  PRINT 

IFC  IPFLAC  .Nl.  0)  00  TO  35 
IPFIAO  = 1 

IF ( ANSI. 1 0.0  ) 00  10  35 
C PRINT  SCAN  NUN  BFR 

PRINT  SOT, ISC 

SOT  F0RNA1  (////, 30X, *♦♦♦♦♦♦♦  SCAN  NUN8FR  = ',14."  »♦♦♦♦♦♦',/) 

IF  ( ANSI  .h€  .?  ) 00  TO  35 
C PRINT  HEAD  I NO 

PRINT  40 

C CONPUlt  SIONAl  ENF  POT  AND  NOISF  AND  CLUTTER  ENERGIES  FOR  TAPOET  I 

35  CALL  SIGNAL(I,RC(11),RC< 12)) 

CALL  NOISt (I.RCCl 3),RC(14)) 

TCRSS  = TARCS 

C OETIPNINE  TAROET  DEFECTIONS  IN  NODE  J 

NREF  = RCE15) 

NOON?  = RCL1B) 

CALL  NWOF  T(RC( 12),RC( 13),RC( 14), INUDE( J, 1 ),RC( 16),RC(  1 7),  NREF, 

1 RC(10),I,NTARO,PC<4),NCON/,  ACON/,PC(20),RCC2I ),PC(22), 

? SNTRUF  ) 

IF  (ANSI  .NF.?)  00  TO  6S 
BHOEO'TROPOSCI ,S)»RAOIAN 
bvdfg  = TP0Pos(i,6)»RAniAN 
DBF  =COME*ALOO(PC(1?)) 

URN -C0NV4AL0G( RC( 14 )) 

SN=UBF-ORN 

TROP  = TROPOSC I,4)»6.0H02 

ANHNDB  = CONV»ALOO(ANAX1  (ANBN.l  .0E-74)) 

XJANUD  = CONV  » Al  OOCANAX  1(X  JANN,  l.OC  - 74)) 

sum  - conv»aloo(anaxksioc,i.of-74)) 

SF  AC4"OONV*ALOO(ANAX1  (FAC4,I  .PE-74)) 

SNTRUF  = 10.4AL001 UCSNTRUE) 

PRINT  SO,  l,J,T  INF  < I ),  TROP.BHOFO.BVDFO,  TCRSS,  SF  ACS  .DBF  , ANBNDB 
1 , SC OH, XJANDB.SN, SNTRUF, NFR(I) 

X NtJN  = N .) f T(I) 

IT  (XNIJ4.E0.0)  GO  TO  fcS 
DO  61  X = I ,XNUN 
RPRR  - RANGE ( I ,X )*6.0R02 
A A T A = A / ( I ,K  ) * R AT)  I AN 


> 

l 
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01  14 

IFE  RfREIl.NE.O  ) AAAA  * .5*CA2(  I,2»K ) ♦ A2C I ,2*K- 

01  15 

SSSS  = SNDF  T C I • K > 

01  36 

SSSS  = 20.»ALflG10ESSSS) 

01  3T 

PRINT  55.RRRR, AAAA, SSSS 

01  1H 

55 

FORRATE5X,'»DETLCT  I.1N**,4X,F12.2,F10.2,19X,F10.0> 

01  39 

61 

CONTINUE 

0140 

65 

CONTINUE 

0141 

r 

70 

CONTINUE 

c 

MERGE  DETECTIONS  FOR  THIS  RODE 

0142 

CALL  MFRDETCRCCrD.NTARG.ACONZ) 

c 

CALCULATE  ROLL  AND  PITCH 

0141 

c 

CALL  STAB2 

c 

SET  UP  OEirCTIONS  FOR  OUTPUT 

0144 

DO  74  I = 1 , NT  ARG 

0145 

NCT  * GUT  TCI) 

0146 

IF (NCI  .EO.  0)  GO  TO  74 

0147 

BUFE1)  » RUFC  3 ) » NCI 

0148 

DO  71  X * l.NCT 

0149 

ICNT  = ICNT*l 

0150 

BUF A(ltlCNT)  » I 

0151 

BUF A(2, ICNT)  » RANGE  C I , K ) 

0152 

8UF AC3.ICNT)  = A2(I,X) 

0151 

BUF  A(4, ICNT)  » ELEV(IfK) 

0154 

BUF  A(5 , ICNT ) * T I ME  < I ) 

0155 

BUF  A(6, ICNT)  = SNDEKI.X) 

0156 

BUT AC6. ICNT)=20.*ALOG10EBUFAE6, ICNT)) 

0157 

BUF  A(7,  ICNT)  * ROLLED 

0158 

BUF A( 8 , I CNT ) = PITCH(I) 

0159 

n 

CONTINUE 

0160 

74 

CONTINUE 

0161 

f 

75 

CONTINUE 

c 

Cl  UTTER  OUTPUT  FOR  TRACKING 

0162 

CALL  FXCLT2 

0161 

c 

CALL  VRC172 

c 

SCAN  OUTPUT 

0164 

BUF  ( 1 ) = ISC 

0165 

BUF  (2  ) * T»1600. 

0166 

BUC  C 3 ) * 8UFC1)  ♦ IV 

0167 

BUF  <4 ) = 20no»ITITLE(l) 

0168 

BUFES)  * SHIPE5) 

0169 

BUFE6)  ■=  NT  ARG 

0170 

WRITE  E I OUT  ) EH  UF  El), 1*1,6) 

01  7! 

IFEANS1.E3.0)  GO  TO  220 

01  72 

IF  E BUF  E 3 ).EQ.O  ) GO  10  220 

0171 

PRINT  56,  E BUF  El), 1*1, 6) 

0174 

56 

FORMATE1HL/'  SCAN  NUBBE R * ' , F5 . 0 , * T IRE» ' ,F9 . 2, 

NO.  OETECTI 


• i 
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0175 
01  76 

0177 
01  78 
01  79 
0180 
0171 
01  8? 
0181 
0186 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 
0106 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 
0203 
0206 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
021  2 


0213 

0216 

0215 

0216 
0217 


IONS*  ',F5.0,  ' R AO  AR  ID*',F6.0»'  ME  AD  I NG  « ' , F 7 . 2 , ' NO.  TARGE 

2TS  = ',F6.0/> 

PRINT  58 

8 8 FflRNftT(lBX,'I0',6X,'RAN0E',SX,'A2IN',6X,'ELEV'.6X,  'TINE  ',6X,  'ESIG' 
l,6X,'ReU.*,5X,  'PITCH') 

220  CONTINUE 

00  250  I = 1 , N TARO 

8UF  ti ( 1 • I ) * I 

8UF  HE  2 » I ) = TRGPO$<I,6) 

BUFBE3.I)  = TRGPOSE I .5) 

BUF  B(6 • I ) = TRGPOSE I f 6 ) 

BUFBE5  # I ) * TI NEE  I ) 

250  CONTINUE 

If  EIV.EQ.O)  GO  TO  270 
DO  260  I = 1,IV 
ICNT  = I CNT  ■*  1 
BUFAC1.ICND  = 200 
IFEI.LF.IC) 

I  BUF  AE  1 . IC  NT  ) = 100  ♦ NCE  I) 

8UFAE2.ICNT)  . ROUTED 
BUFAE3.ICNT)  = A70IJTEI) 

BUF AE6.ICNT)  = ELOUTEI) 

BUF  AES  * IC  NT  ) = TOUTED 
BUF  AE6  t ICNT  ) = SOUTED 

BUF  AE6, ICNT)=2  9.*AL0G10EBUF  AE6. ICNT)) 

BUF  AE  7 t IC  NT ) = RIOUTEI) 

BUFAE6.ICNT)  = 2T0UTEI) 

260  CONTINUE 
270  CONTINUE 

00  275  J = l.NTARC 

UPIT"  E I OUT ) E8UFBE I*J)t 1 = 1 *5 ) 

2  75  CONTINUE 

If  E ICNT.FC.O)  GO  TO  290 

00  277  J = 1 . ICNT 
WRITEEIOUT)  EHIJf  AEI.J).!  * 1.8) 

277  CONTINUE 

IFCANS1.F C.O)  GO  TO  290 

no  280  J = l.ICNT 

PRINT  57,ERUFAE  1,  J).I  * 1.8) 

57  FORNATE'  DETECTION  NUN  ' ,F5 .0 . 7F 10. 6 ) 

780  CONTINUE 
790  CONTINUE 
C 

C Nf  8 SCAN 

1 = T ♦ RNOD1E1.5) 

if  c t .r,r.  enotin)  r.o  to  no 
no  to  20 
c 

80  CONTINUE 

IF  EISTEP.LE.6000  ) GO  TO  20 


0710 

07H 

0770 


0771 

077? 

0771 

0774 

027S 


077* 

0727 

0278 
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no  ISTEPMSTIP-1 
70  1 CONTINUE 
XJAMN*0. 

C READ  IN  RECYCLE  CONTROL  PARAMETER 

E.  IANS'rl!SHIP),  = 7<TARGFT)#  = 3tE  NVIMONME  NT),-A(FINISHFD) 

READ  57,  IANS 
GO  TO  <S, 10,  II,  HO),  IANS 
HO  CONTINUE 
1 JO  CONTINUE 

*0  FORMAT  (//,!*,  "HOOF  *,A2X,  'SIGMA',/,  * T ARGE  T *.8  X • 'I  I ME  RANGE 

l.fcK.'A/IM  ELIV  FACTOR  ESIG  NAMB  NCLT  NJAN 

2 E/N  MTR  ') 

SO  FORMAT!  IX,?H,F11  .1  ,F1?.2,F10.2,F10.?,FS.I,FS.0,F0.0,1F8.0,F9.2 
1. FT. 7,  IS) 

60  FORMAT  O X . I ♦/ ( 1 X , S(F  T.  1 , F T . 5 ) ) ) 

F NO 
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00C1 

00n? 


000  3 

0004 

0005 

0006 


SUBROUTINE  FXCLT2 

COMMON  NSCAN.NEXT , NU MTGT  , T , 01 D T , F Nn T I N , SNODE (33,20) 

1 .PI.PIOVR2  .TWOPI, RADIAN, TAU(30),OSTAR,DRL(30) 

2 ,XY71C20,4),XYZF(20,4),TR&P8S(20,7),SIGJAN(20> 

3 ,SIGTAR(20,3),FHV(20),SIGMAH»ISWIT,TENPWR 

4 ,SHIP(9),RC(3O),RM0DE(3O«12),IM0DE(3O,2) 

COMMON  /FCINZ  N, PROS, RS,RF,THS, IMF, SIGA.SIGR. ISET 
COMMON  /FCPT2  R(100).AZ(100),RAN(400>,N2,N3,N4 

COMMON  /CLT OUT  / R 0U  TE201  ) , A/0UTC2O1  ),EL0UT(2O  1 ) . TOUK  201 ) . 
1 RL0UTC2O1 ), PT OUT (201 ),  SOUK  20 1 > ,NC  ( 1 00 ) , IC , I V 
COMMON  /STABIN/  RMAX«PMAX,RFAC,PFAC,PHASE(2) 


OOGT  IC=0 

OOOR  IF  (N.EQ.O)  GO  TO  15 

C T IMZB  IS  THE  TIME  OF  THE  ZERO  BEARING  CROSSING 

0009  T IM/B=T» 3600. 

C TIMSCN  IS  THE  SCAN  TIME  OF  THE  RADAR 

0010  TIMSCN-RMOOECl ,5)»3600. 

C RFS  IS  THE  RANGE  GATE  SIZE 

0011  RF  S = RC( 19 ) 

0012  CALL  SFTVRCISET) 

0013  CALL  VRANFCRAN.N4 ) 

0014  ISET  * 2147483647. *RANC1) 

0015  ISET  = 2KISET/2)  ♦ 1 

0016  00  20  1*1, N 

0017  IF  (RANC I 3.GT.PR0B)  GO  TO  20 

0018  IC* IC*  1 

0019  NC(IC)*I 

0020  TH*RAN(l*N)»TW3PI 


0021 

RAY=SQRT(-2.«AL0G(RANCI4N2 ))) 

0022 

K*(R(I)*SIGR*RAY*COS(TH))ZRES 

0023 

R0UT(IC)=(K*O.5)«RES 

0024 

TOUT(IC)*TIMZB*TIMSCN»AZ(I)2TN0PI 

c 

c 

GENERATION  OF  ROLL  AND  PITCH 

0025 

c 

R LOUT  ( IC  )*RMAX«SIN(TOUT(  IC)»RFAC4P'IASE(1  )) 

0026 

PTOUT(  IC)*PMAX»SIN(  TOUK  IC  )»PF  AC4PHASE  C 2 ) ) 

0027 

CR*COSTRLOUT(IC)) 

0028 

SR=SIN(RLOUT(TC)) 

00  29 

CP=COS(PTOUT(IC )) 

00  30 

SP=SIN(PTOUT(IC)> 

0031 

AA*AZ(I)-SH1PC5) 

00  >2 

TE  = 0 • 

0033 

X-SINCAA)*CR«(COS(AA)*SP*TE»CP>»SR 

00  34 

Y =COS<  AA)*CP-TF»SP 

00  35 

c 

c 

A*ATAN2(X,Y)»TnOPI 

G E N 1 RATION  OF  MIASURID  ANGLES 

135 


. 


,,  jbi  vtaxa  rwciicW!* 


0016  AM  =A«SIGA*RAY*SIN(TH)«SHIP(5> 

00  37  f LOUT(IC)-0.0 

I 0018  AZOUT ( IC)=AM0D(AM*lW3PI) 

C MtMMtM  NEED  10  GENERATE  OUTPUT  POWER  ♦•»»♦•»»*»»»*♦ 

00  39  SOIJT  ( IC  >=55.55 

004n  ?n  CONTINUE 

00*1  RETURN 

C 

C INITIALIZATION  0E  THE  CLUTTER  ROUTINE 

C 

004Z  ENTRY  FCIMT 

0041  READ  50, ISET.N.PROB.RS.HF, SIGR, THS. THE, SICA 

0044  40  FORMAT  (Zl8,TF8.t) 

C 

C I.SET  IS  INC  INITIALIZATION  NUMBER  FOR  I HE  RANDOM  NUMBER  GENERATOR 

f C N IS  THE  NUMBER  OF  FIXED  CLUTTER  POINTS 

C PROB  IS  THE  PROBABILITY  THAT  THE  CLUTTFR  POINT  IS  DETECTED 

C RS  IS  THE  INITIAL  RANGE  OF  THE  CLUTTER  AREA 

C RF  IS  THE  FINAL  RANGE  OF  THE  CLUTTER  AREA 

C SIGR  IS  THE  STANDARD  DEVIATION  OF  THE  RANGE  MEASUREMENT 

C AS  A PERCENTAGE  OF  RANGE  RESOLUTION  CELL  SIZE 

C I H S IS  THE  INITIAL  AZIMUTH  OF  THE  CLUTTER  AREA 

C IMF  IS  THE  FINAL  AZIMUTH  OF  THE  CLUTTER  AREA 

C SIGA  IS  THE  STANDARD  DEVIATION  OF  THE  AZIMUTH  MEASUREMENT 

C AS  A PE  RCI  NT  AGE  OF  HORIZONTAL  3DB  BFAMWIDTH 

C 

0045  PRINT  55,ISET,N,PR0B,RS,RF, SIGR, THS.THF, SIGA 

0046  SS  FORMAT  C1H0,'  FIXED  CLUTTER  *.ZI8,7F8.1) 

0047  CALL  SFTVRC1SE  T ) 

C 

f.  CALCULATION  OF  RANGE  CELL  DIMENSION 

C 

0048  Rt S=TAU( 1 >4300000. /?. 

0049  RCG=RrS*l.?R08/6.PB 

C RC ( 1 9 ) * RFS  = RANGE  RESOLUTION  CELL  SIZE 

0040  8C(  1 9 ) =Rf  S 

0OS1  IF  (N.fO.O)  GO  TO  15 

005Z  RS-RS/4.080?  ' 

j 0041  RE  =RF/6.0BOZ 

0054  THS-THS/RAnlAN 

0054  I HE  = IMF  /R  AD  I AN 

0045  SK.A*SIGA»RC(4 ) 

0047  S IGR=SIGR*RES 

i 0058  IF  CN.GT.10))  N = 100 

0059  NZ  -Z*N 

0060  '11*1*9 

0061  N 4 * 4 * N ( 

006?  CALL  VRANFCRAN, N?) 

0063  ISET  * Z147483647.*RAN(1 ) 

0064  ISEI  = >*(ISET/?>  ♦ 1 

' 0065  DO  10  I = 1 * N 

0 0066  .1  (I  ) RS*(RF-RS)*RANC  I ) 

0067  10  AZ ( I ) = THS*(THF-THS)«R AN( I *N ) 

0068  14  RF  TURN 

0069  END 


■ I 

• I 


T 
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cool 

0002 

oooj 


1 00« 

0008 

0(106 

0007 

0008 

0009 

o<iin 

0011 
0012 
001  } 

0010 

0015 

0016 

0017 

0018 
0010 
0020 
0021 
0022 
902} 
0020 
0028 
0026 

0027 

0028 
0020 
O«}0 
On}  I 
00}2 
00}} 
00}4 
00}8 
o0}6 
00}7 

00}8 

00}9 

0000 

0001 


SURRUlTINE  1*117*1. 

DIMENSION  *-"0F(}(>,2> 

CPhmon  NSC*N,NEXT,NUHTGT,T,8LDT,ENnTIH  , JM8DE  ( }0 , 20  ) 

1 #81  # P I o vfi  2 ,T«8PI,R*DI*n,TAU(}0),DST*R,P>iL(}0) 

2 . »V2T (20,o),» nt (20,0), T»G80J( 20,7), S1CJ*- (20) 

} ,SIGT*W(20,}),FMV(20),9ICm*h, I So  I T , TEhPmR 

0 ,SHIP(P),BC(}0),9*‘90t(}0,12),IM80E(}0,2) 

Cohmon/b/  ENVIR(iC),SU5C(}0),RE,CNm«CCm,AC0N,BETa, 

• O8TP(20),B8LR2,I»EYF,XKT9mS,XNMT8“,TARCS,»VL,F0PI06,F8PIS0 
COhhon/I/  PgflS , HOFK , 7mfTRK,080O8N,Twm,Twv,GN 
hC(10)*290,0*I.}R*10.0o*(-2}) 

C * V 2 S»1P  C0PR0!N»TES 

REAP  80,  (SMlP(I),I«l,sl,  SHJP(S) 

50  F0P“*T(i»F8,2,I2,F6.2) 

PPTNT  500,  (SM!P(!),I«(,J),  $H1P(5) 

800  F«RN*Tf/,t  SKIP  X,Y ,1,  C*880I8»TFS  »PE  ' , }F S . }, RX , ' HEAP I mg  IS', 

1 F».}) 

"IL18NF1 ,0E«6 

0*  }'i  !»!,} 

}0  SmIP(I)«SHIP(I)/6.O802 
P I*}, I 0 I 59265S6 
ToOPI «p 1*2,0 
P I 1yP2  »PI/2,0 
P»0I*N»57. 20578 
SHlP((i)pS'JRTf8HIP( })  ) 

Sm IP (5)  « SHlPf5)/P»0I*N 
»E*P  80, (PC (I), !■ I ,0),mSC*n,P0L»2 
IFJN9r»N,UE.  SO)  C8  TO  10 
*(SC»K  a }0 
10  CONTINUE 

PRINT  «01,(»C(I),Iat ,0),NSC»N,POL»2 

801  FORh»T(/'  11  BASIC  R*0*R  PARAMETERS  *RE  ' ,9F8.2, I0.F6.2) 

PC  (4)aRC («) /RADIAN 

»C  (S)»*C  (5)  /R  *01  »*' 

TMNePC(d) 

THVaRCfS) 

»C(*)ain,».fRC(6)/10.) 

GNaRC  <6 ) 

R£(})alO,**(Pr(})/10.) 

»C C7)a10,**(.»Cf7)/»0,) 

»C(")alo,*af«*»C(M/10.) 

RC(0)alO,»#(-Rt(0)/10.) 

PROO.N  a RC ( 7 ) *RC ( 7 ) 

OP  60  J a l,"SC»N 

C R“POE (1,8)  IS  USFO  *S  PtPtR  SC*N  BATE  FOP  ALL  "9DES 

RF»0  81  , (RHODE  (J,I),  lai  ,8)  ,*h8DE(J,  1 ),»hPOF  (J,  1 1 ) .S'JBC  (J) 

• , RHODE (J, 12) ,0*1 (J) ,SH,Sh8DE (J,2> 

51  F*bm»1(i„F8.2) 

I""OE  fJ,l)a»“*0((J,|) 

PRINT  5I| ,7, (»H80E(J,T), la  I ,8), I“8rE( J, 1 ), R-ODE (J, 1 1 ),SU"C (J) 
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• ,**ode(j,i*),06l(J),s*,sm8de(j.*) 

006*  511  898**T(/,'  16  NODE  ',12.'  0*»»*ETE8S  A*9  ' , 88*. J, |«, /, 50* , 699 . 1) 

00*1  I*  (8*8OE(J,5).GT.0.0)  09  T#  55 

00««  »«808 (J,5)a10,n 

t««5  55  »*8DE(J,l)a6*0DE<J,l)/6ADIAN 

0066  »*1D9(J,2>*»*80E(J,*)/*ADIAN 

006T  I0(S*.fQ.0)S**»*8DE(.J,«) 

00*8  8“80E(J,  1 )*150.*S“/XN*78“ 

90*8  SHOOKJ,*)  ■ 10.»*<»S*80f (J,*)/I0.) 

0859  8*9DE(J,5)a»H9DE(J,5)/J400.0 

0951  8*809 ( J,6)*8*0DE(J,6)/1400.0 

005*  8*8DE C J, «) *8*809 (J,«)/*ILI"N 

0051  8*8D9(J,8)*10.»*(.8*0DE(J#6)/10.> 

0050  8*809  (J.l)*»H8OE(J,l)«*IU0N 

0055  T*U(J)  a 8*80E ( J,  1 1 ) /*ILI0N 

0056  18{8*90E(J,1*).LE.0)  8*8DE(J,I2)  a t . 0/8*009  ( J,  J 1) 

005T  8*80f(J,l*)  a K*8DE ( J, 1*>**ILI8N 

0058  I*0DE (J,*)*"AXI(8*8DE(J,1*)«8*6Df (J,ll)/*ILI0N  *9, 5, 1.0} 

0058  »*80E(J,1I)  a I0.»«(*0*8) 

0060  SU8C (J ) a 1 0 . *. ( -IU9C ( J ) / 1 0 . ) 

9961  60  CONTINUE 

C 

C 8t»0  I*  8*8**9198*  908  H8VINC  61*08*  DETECTS* 

C Of ( 15)  a *8f9  a *0.  »r*f»t*Ct  CELLO  9*  EACH  8109  09  T»»GEt  CELL 

C 0C(|6)  a C08  ■ CLUTTE8  C088ELATI9N  C0E99ICIE*T 

C 89(17)  ■ 9810  a *0.  »TANDA*0  DEVIATION*  USED  I*  Tm*ES*8L0 

C 8909)  a *C8*Z  a *8.  89  DETECTIONS  That  £6*  89  *18899  AND 

C DETECTIONS  8TJLL  *E*0E0  I*T8  6 8I*CLE  0ET9CTI8* 

C 8C(t9)  a 8980LUTJ8*  CELL  SIZE  (CALCULATED) 

C 8C(Z0)  a «LOC  a VIDEO  rr89 

C 0 LI*EA8  VIDEO 

C I LOG  VIDEO 

C »C<*1)  a T*88«  a *8.  Of  »99E8E*CE  CELLS  USED 

C a ALL  CELLS  U8E0 

C <9  8“ALLE»  HAL*  USED 

C * 0 LA8GE8  *AL9  USED 

C 89(22)  ■ 8*8*  • 8*8**97988  USED  T8  CALCULATE  TH8ES*0LD 

C 1 *EA*  USED 

C 2 *Ea*  AND  VA8I*NCE  USEO 

c 

006*  9EAD  70,  (8C (I), 1*15, 18),  (»C ( I ) , I«20 , ** ) 

0961  70  990**7(1088.2) 

004*  881  NT  700,  (*C (I), 1*15, 18),  f»C ( I ) , 1**0 , *2 ) 

0065  700  988**7(1*0,'  *P01TI8*»L  b*d»8  9*9**979*8  *89  ',799.1/) 

0064  Of  Tij9N 

0067  END 
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0001 

SUBROUT  I Nf  NEROET  ( RES.N , ACONZ  ) 

0002 

COMMON  /BET  / NDEI  (70).MER(?0).R»N&f  (70,  1 > , A/(  70 , 6 >.  SNIiE  1(7" 
1 ELEV(70,3>,TINE(?0) 

0C03 

f 

0 (MENS  ION  KTAR(60>,ROET(60),RIRR(60>,RDIT<60> 

V 

c 

RES  IS  THE  RANGE  RFSOLUIION 

c 

N IS  THE  NUMBER  OF  TARGETS 

c 

r 

AC0N7  IS  THE  ANGLE  IN  HHICH  TARGETS  ARE  MERGED 

0004 

L 

R =0 

0005 

OO  10  I *1  . N 

0006 

c 

IE  (MER(I).NE.-l)  GO  10  30 

HAVI  A MERGE  PL  OB LEM  AND  AN  ORDERING  DETECTIONS  IN  AZIMUTH 

0007 

1 1 -NOE  T(  I ) 

0000 

IE  (II.E).O)  GO  TO  30 

0001 

DO  7S  J*1,II 

0010 

IF  (SC.GT.O)  GO  TO  10 

0011 

R = 1 

0017 

RTAR(1  ) = I 

001 1 

KDET(1)»J 

0014 

GO  TO  70 

0015 

10 

A>A7(I,7*J-1 > 

0016 

30  IS  KR *1 *R 

0017 

IF  (A.GT.A7(RTAR(RR),7*KDET(RK)-1>)  GO  TO  IS 

0010 

RC  = 0 

0014 

DO  1?  JJ-RR.R 

0070 

KC=RC«1 

0071 

RTAR(K«7-RC)*KTAR(R«1~KC> 

0022 

RDf  T(R*7-KC)  = KDET(R41-RC> 

0073 

17 

CONTINUE 

0074 

RTAR(RR)*I 

00  75 

RDF  KKK  ) = J 

0074 

GO  TO  18 

0077 

IS 

CONTINUE 

0078 

RTAR(K«1)M 

0071 

ROE  I (R4 1 )“J 

00  30 

18 

R*RM 

00  11 

70 

CONTINUE 

00  17 

7S 

CONTINUE 

00  33 

30 

CONTINUE 

00  34 

IF  (R.GT.l ) GO  TO  40 

00  IS 

IF  (K.EQ.O)  GO  TO  IS 

0016 

t=KTAR(l) 

0037 

47(1,1 )*( A/ (1,7 )«A2( 1,1 >)/7. 

00  31 

3S 

RETURN 

00  19 

40 

CONTINUE 

c 

C OTCISION  MADE  ON  IMF  PROPER  DETECTIONS  ' 

C 

0040  RK«1 


✓ 


139 


I 
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0 0 4 1 

KC=0 

0042 

on  ioo  jj»?,k 

00  4 \ 

! =KTAR( JJ) 

0 f)  ^ ^ 

J=KDFT(JJ) 

00  4 5 

on  (SO  L *1  »KK 

0046 

IF  (ABS<RANGF(I.J)-RANGE<KTAREl)tK0ETU>>).GT.1.5*RES) 

GO 

TO 

60 

0047 

IF  (A7(KTAR(L)l^»KI)FT(L))«ACflN2.LT.«2<It?*J>)  GO  10  AO 

00  48 

GO  TO  HO 

00  4 9 

60 

CONTINUE 

0050 

IF  EKC.EQ.O)  GO  TO  75 

0051 

00  70  L = 1,KC 

005? 

IF  E ABSER ANGEE 1 1 J )-R ANGE  EK  TRREL )*KDTTEL))).GT«1.5*R£S) 

GO 

TO 

70 

0053 

IF  EA2EKTRREL ),?*KOTT(L>)  .L T . A / E I , 2* J) ) GO  TO  10 

0054 

GO  TO  80 

00  5 5 

70 

CONTINUE 

0056 

75 

KK  *KK ♦ 1 

0057 

KTAREKKJ-KTAPEJJ) 

0058 

KDFT(KK)3KD£T(JJ) 

00  50 

GO  TO  100 

0060 

80 

KC=KC*1 

0061 

KTRR E KC ) = KT  ARE  JJ) 

0062 

KD  T T EKC ) = KDF TE  JJ) 

006  3 

100 

e 

CONTINUE 

L 

c 

r 

CORRECTION  OE  OUTPUT  ARRAYS 

0064 

L 

00  110  I *1 1 N 

0065 

IF  (MER(I).FU.-l)  NOE  TCI )“0 

0066 

110 

CONTINUE 

0067 

00  150  K-l.KK 

0068 

I *K  TAREK ) 

0069 

J-KDEIEK) 

0070 

I l *N0FTEI)«1 

0071 

NDF  T ( I )-II 

007? 

PANGEE  I, I I)=RANGE ( I t J ) 

00  7 J 

SNDETEI,I1)»SN0ETEI,J) 

00  74 

ATE  I. I I)*EA/E 1 .7* J)«A/EI »2»J-l)>/2. 

00  75 

160 

CONTINUE 

00  76 

RE  TURN 

0077 

FNU 
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ooot 
ono? 
oot  i 


oon* 

oooo 

0006 

OOOT 

0000 


0000 

0010 

0011 

001? 

0011 

001* 

0015 

0016 
oni  i 


Ohio 


SUBROUTINE  HWOf  T ( S , C , F N , NTDB  , C OR  ,F  S 10 , NREF  , 0 E S • N 1 AO  , N . I H 3DB  , 

1 NCON2  , AC  ON  2 ,XLOG  , THRSH.PARH.SNTRUE) 

CONNON  /DE  T/  NDET(?0),M£R(20),RANG£(20,  )),AZ(20,6),SNDE  T(20,  3), 

I ELEV(?0,3),TINE(20) 

CONNON  NSCAN, NEXT, NUHTGT.T.OLDT  .ENDUP  ,SP0DE(3O,2O) 
l ,PI,PlflVR2  ,TW0Pl .RADIAN, TAU(30),DSTAR ,DWl(30> 

? ,XY2I(?0 ,* ),XY?F(20,*>,TRGPflS(?0,7>,SIGJAH(?0 ) 

3 ,SIGTAR(?0,3),FHV(20),SIGPAH,ISWIT,TEBPWR 

* ,SHIP(9),RC(  10  ),R  NODE  (30, 12),  INODE  (30, 2) 

CONNON  /NOD/  NODE  1(20) 

1IPENSION  FLtlCT(SOl) 

DIMENSION  SNREF(20),INF(20) 

DINFNSION  X(*01 ,75>,SS(*01.25).SUM(2*),IS(?5).R(120*>,  10(3) 

D I NENS  ION  D(1*),IC(1*),XFIRST(1*),XLAST(1*),IDET(1*),SN(1*) 

C 

C S IS  THF  SIGNAL  POMER 

C C IS  THE  CLUTTER  POUER 

C FN  IS  THE  NOISE  POWER 

C N1DH  is  the  nunbfr  of  pulses  BETWEEN  the  3-OB  antenna  points 
r.  COR  IS  THE  correlation  coefficient  of  clutter 

C FSIG  NUNBER  OF  STANDARD  DEVIATIONS  USED  IN  CALCULATION  OF  THE  TH 

C NREF  IS  THE  NUNBER  OF  REFERENCE  CELLS  ON  EACH  SIDE 
C RES  IS  THE  RANGE  RESOLUTION  CELL  SITE 

C NTAR  IS  THE  TARGET  OF  INTEREST 

C N IS  THE  NUNBER  OF  TARGETS 

C TH3DB  IS  THE  ANTFNNA  3-DB  BEANWIDTH 

C NCONT  NUNBFR  OF  DETECTION  THAT  CAN  BE  NISSEO  AND  DE  TFCT IONS  STILL 

C NFRGFO  INTO  A SINGLE  DETECTION 

C ACONT  IS  The  NERGE  OISTANCE(NCONT)  IN  ANGLE 

C XL OG  OENOTES  WHETHER  IINEAR(XLOG*0.0>  OR  LOG( XL OG* 1 . 0)  VIDEO  IS  USED 

C THRSH  DENOTES  WHETHER  ALL  THE  REFERENCE  CELLS (T HRSH=0.0 > , THE 

C SNALLFR  HAIF(THRSH<0),  OR  THF  LARGER  HALF  ( THR  SH>0 ) SHOULD  BE  USED 

C PARN  DENOTES  WHETHER  THE  NEAN  ANO  VAR  I ANCE (P ARP* 2. ) OR  JUST  THE 

C PEAN(PARP=1. > SHOULO  BE  USED  TO  CALCULATE  THE  THRESHOLD 

C SN T RUE  RETURNS  TRUE  SIGNAL/NOISE  RATIO  USED 

C 

IF  (N30B.LE.  99.AND.NREF.LE.il)>  GO  TO  3 
PRINT  SO 

56  FORNAT  ( 1 HI  , * EITHER  N3DB  OR  NREF  ARE  TOO  LARGE") 

STOP 

3 IE  (ABS(COR).LT.l.O)  GO  TO  * 

PRINT  SI 

SI  FORNAT  ( 1 HI  , " CORRELATION  COEFFICIENT  IS  GREATER  HR  EQUAL  TO  1") 

STOP 

* CONTINUE 

C 

C TEST  TO  SEE  IE  THERE  IS  ANY  CHANCE  OF  A TARGET  DEIECTI"N 

C 

SNINI  »N10B»S/(C«FN) 


i 
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00  | ‘I 
00?0 
0071 
00?/ 
00?l 

00/A 

oo?6 
00/6 
00// 
00?  H 
00?0 
00  <0 
0031 
00  i? 

oo  n 


00  54 
00  56 
00  50 
00  5/ 
00  3H 
00  10 

0040 

0041 
004? 
004  5 

0044 

0045 
00  4 6 
004/ 


00 4 H 
0040 
0 06  0 
0061 
006/ 
006  5 

0054 

0055 
0060 
006  f 
00  SO 


6 


C 

C 

C 

C 

C 

c 

c 


c 

c 

c 


9 

10 

1 1 
1 ? 


1 3 


IF  (SNINT.GI.?)  GO  TO  6 

NO*  1(NTAR  )=0 

SNTRUl  = 10«**(-9.9) 

HE  TURN 
SNREFCl >=S 
INF  C1)  = STAH 
N»f  F?-?*NRFI 

GALL  RESOL(NREF  *RtS»NTAR 9SNREF , INF 9NI9TH30B«N) 
GAIL  VRANF(R.l) 

>)£L  = IH30B/(N30B*i  ) 

AGON/  =DEL*NGON/ 

M IH=TRGPOS(NTAR#5  >♦ (R(I >-. 5 >*DEL 
A/ INS- A/ IN-/01 . *OEL 
KrtS-TRGP0$(NTAR«4)/RES 
RS  = REStKRS-13.4RES 


GENERATION  OF  SIGNAL  VALUES 


********* 


NS  = ?0  W»N3DB-? 

NF=?01**»N3DB 
NRS  = 1 3 -NRtF-2 
NRF -1 3«NRLF»2 
DC  T I*NRS,NRF 
I S C I > = 0 
no  l j=ns  *ni 
SS(J,I)-0. 

I ftFRGf  =0 

•)0  40  R’l.Nl 

RR-TRGPOSCINFOC)tO 

K»=CRR-RS)/RFb 

IF  CK.t'J.l  .OR.KK.GT.  16. CR.KR.LT.  10)  GO  TO  ft 
!fttRGL=l 

FLUCTUATING  SIGNAL 

NSWftOQEL  (INFIK  )) 

II  (NSU.GT.U)  GO  TO  11 

H -1.0 

DO  10  J=NS.NF 
ri  UCT ( J )*FL 
GO  TO  111 

GO  TO  (1^,13, lb, 16), NSW 
' ALL  VPANF  (R,l  ) 

FI  *-ALOG<R ( I ) > 

GO  TO  0 
ft  = NF  * I -NS 
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CALL  VRANF  (R,R) 

KK  =0 

DC  14  J-NS.NF 
<K  =XK*1 

14  FLUCT<J)=-ALO&(R(KK)) 

GO  TO  171 

14  CALL  VRANF  CR.2) 

FL=-.S*CAL0G(R<1  > )♦ ALOG< P (2  > )> 
co  ro  9 
Is  R -NF  ♦ l-NS 

R2=2»R 

CALL  VRANF  (R,R2) 

KK  = 0 

DO  17  J=NS ,NF 
KK  = KKM 

IT  FLUCT(J)=-.5*(ALOG(R(KK))*ALOG(R(KK*H))) 
71  CONTINUE 

DO  15  1=1,1 
K T = KR* 1-2 

IF  IKT.LT.NRS.OR.KT.GT.NRF)  GO  TO  IS 
I S (XT )=1 


RODULAT ION  OF  SIN(X)/X  PULSE  SMAPF 


RTERP  = XT*RES*RFS/2.*RS 
FOIF=2.78  32»(RR-RTERP  >/RFS 
F = 1 . 

IF  (FDIF.EO.O)  GO  TO  18 
F*SIN(FOIF)/FOIF 
18  F=F*F 

SR=F*SNRFF(  X )/CC«FN) 


AA=TRGPOS(INF(X),S) 

NC  = ( A A- A/ IR)/DLL*201 
NRFD=HAX0(1,N3DB/10) 

IF  (I.Fj.2)  NREU  = 0 
NNS*RAXO(NS , NC-N3DB*NRF  D ) 
NNF  = R I NO ( NF ,NC  *N30R-NRED ) 


RODULAT ION  OF  SIN(X)/X  ANTENNA  PATTERN 
DO  20  J=NNS.NNF 

r.DIF  = 2.7  8 32»(J*DFL»AZIRS-AA)/TH30B 
5 G *1  • 

IF  (GDIF.EO.O)  GO  TO  19 
G=SIN<GOlF)/GOIF 
19  G =G»»A 


NOTE 


TARGETS  A»L  ADDED  NONCOHERENT 
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0040 

0100 

0101 

010? 

0101 

01u6 

0105 

0106 
0107 
01  OB 
0100 
0110 


0111 

Oil? 

Oil] 

0116 

Oils 


0116 

0117 


0111* 
0110 
oi?n 
0121 
01?? 
0 1 ?7 

o l ?s 


01?S 

0126 

0127 

0128 
0120 
0130 
01  31 
01  3? 
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SS(J|KT)  = SSCJ,An*SM«G*FCUCICJ) 
20  CONIINUE 
IS  CONTINUE 

60  CONTINUE 
SNTRUE  = 0. 

NSS  = 201  - (N3U8-1 )/2 
NSF  = ?01  * N JOB/? 

DO  60?  J = NSStNSF 
60?  SNTRlJt  = SNTRUE  ♦ SS(  J,  1 3 3/N3DH 
00  61  I=NRS,NRr 
IF  (IS(I).EQ.O)  CO  TO  61 

61  CONTINUE 


L 

C GENERATION  OF  NOTSF  SAMPLES 

C 

c 

0 =NF* 1 -NS 

M2  =? ♦ M 
M3=  J»M 
M 6 - 6 ♦ M 

IF  CNJDB*C  .CT.FN)  CO  TO  100 
C 

C CLUTTER  IS  NOT  A f ACTOR 

C 

DO  90  I = NRS * NRF 
IF  (IS(I).E3.1 ) CO  TO  75 
C 

C NO  SICNAL  PRESENT  IN  THIS  CELL 

C 

CALL  VRANF  <R,N) 

K -0 

DO  60  J = NS . NF 
< ♦ 1 

F<JfI)-SQRT(-?,»ALOC(RCK ))) 

60  CONTINUE 
CO  TO  90 
C 

C SICNAL  PRESENT  IN  THIS  CELL 

c 

75  CALL  VRANF  <R,M?> 

5 -II 

no  HO  J =NS • NF 
K *K  M 

A=S0RT<-2.»ALOG<HCK))> 

tMHOPI*R(K»M> 

V(JtI)*S0RT{(A»C0S(H)6SQRT(SSCJiI))»I.6l6)»»?6  <A»SIN(B))»*2) 
HO  CONTINUE 


i 


V* 

> 
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oni 

01  3* 


01  35 
01  36 
01  37 
01  38 
01  39 
01*0 
014  1 
0142 
0141 
0144 
0 1 45 

0146 

0147 

0148 
0140 
015u 

0151 

0152 

0153 

0154 

0155 


01  54 
015  7 


0158 

0150 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 


90 


C 

C 

L 

100 


1 20 
150 
C 
C 

c 

c 

c 

c 


CONTINUE 

go  r»  ? oo 

CLUTTER  IS  A FACTOR 
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A OL  OX  = S'JR  T ( C / ( C ♦ F N ) ) 
cc = A4L0X 

pFN  SvJRKFN/CC^F'O) 

P = SwRTO  .-C<?R*COP  ) 

09  150  I *NR S »NR F 
CAIL  VRANF  ( R * ? ) 

AIL  Of  CC*SIN(TWOPI  *R(  1 ))*SORTC-2.  ♦AL0C(R(2  ))  ) 

A *1L OX  - Ct*COS(TwOP !♦?( I ))*S0PT(-2.*AL0G(R(2))  ) 

CALL  VRANF  (Rf«4) 

X =0 

D O 120  J=NS*NT 
K -K  ♦ 1 

A =S0RTC-2.*Ar0C(P(K  )))*CC 
A 1 =SQP T ( -2.* ALflG (*(*♦*)) ) *FFN 
H =TWflPI*R(K*i»2  ) 

81=TW0P1*R(K*P3) 

A0L0X-CflR4A3L0X ♦ P*A*C0S(fi  ) 

AOLDY  C-JP*A0L0Y#P*A*S  INCH  ) 

X<  J»  I >*SQRTC(At5LOX4  A1*CHS (R1  )4S(JR3  ( SS  ( J f I > )*  1 . 4 1 4 ) * * 2 ♦ 
1 (AHUm  A 1 *SINf  81  ))♦•?> 

CON  r I NUT 
C*Nf  INUfc 


GENERATION  OF  MOVING  WINDOW 


444H*Mt44M4*4t  4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 t44M  4 4 4 4 4 4 4 4 4 H 4 4 4 4 4 4 H» 


200  *S=NS*N30H-1 

If  (XLOG.l T. 0.0001 ) 00  TO  210 
C 

C USE  LOO  Vlf)FO 

c 

on  205  J=NG»NF 
no  205  I -MS*NPF 
20‘  Xf J, I ) ALOGCXC J, f )) 

?in  CONTINUE 

1)0  24  1 J -NRSfNRr 
241  CONTINUE 

00  220  I NRS*NRF 
5 U*  C ! ) =9  . 

DO  220  J=N5*NS 
220  SU«(  I )-SHN(I )f X( J,  I ) 

«S  1 
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0169 

0170 

0171 

0172 
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226 


11  = 0 
DO  285  J=KS.NF 
DO  225  I = NRS  *NRF 

SUP(I)=SUP(I)+X<Jf  I)-X(J-N1D8,I) 

GE  NER  AT  ION  OF  THE  DF  TECT I ON  THRESHOLDS 
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oin 

0176 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 
0183 


DO  250  L=12tl6 
ULOW=0. 

UUP  = 0.0 
X PSLOW  =0  .0 
XPSUP'0.0 
DO  230  I =1»NRE F 
UL0W=UL0W«SU8(L-I-l ) 
UUP=UUP*SUR(L*I*1  ) 
XPSL0W=XNSL0W+SUP(L-I“1)**2 
230  XPSUP=XNSUP«SUP(l  ♦I«l>**2 

IF  (THRSH.NE .0.0)  GO  TO  235 
C 

C USE  ALL  REFERENCE  CELLS 
C 


0186 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

C 

C 

C 


U =ULCW  *UUP 
XPS=XPSLOW*XPSUP 

D(l)*U/NREF2*FSlG*SURT(XRS/NRFF2-CU/NREF2)**2> 

IF  (PARN.GT.1.5)  GO  TO  250 
D(L)  = FSIG»U/NREF2 
IF  (XLOG.LT. 0.0001 ) GO  TO  250 
0(L)=FSIG«U/NREF> 

GO  TO  250 

USE  EITHER  PIN(THRSH<0)  OR  NAX(THRSH>0)  REFERENCE  CELLS 


0192 

235 

IF  (THRSH.LT. 0.0. AND.ULOW.LT. UUP) 

GO 

TO 

260 

0193 

IF  (THRSH.LT.O.O.AND.ULOW.GE.UUP) 

GO 

TO 

265 

0196 

IF  (THRiH.GT. 0.0. AND. ULOW.LT. UUP) 

GO 

TO 

265 

0195 

ir  (THRSH.GT .O.n.AND.ULOW.GE.UUP) 

GO 

TO 

260 

0196 

26  0 

U=ULHW 

0197 

X8S*XPSL0W 

0198 

GO  TO  268 

0199 

265 

U=UUP 

0200 

XPS*XPS'JP 

0201 

268 

D(L)=U/NREF6FS1G*SCRT(XWS/NREF-LU/NREF)»»2) 

0202 

IF  (PARN  .GT.1.5)  GO  TO  250 

0203 

D(L)=FSIG«U/NREf 

0206 

IF  (XLOG.LT. 0.00U1 ) GO  TO  250 

0205 

D(L  )=FSIG»U/NRrr 

0206 

250 

CONTINUE 

0207 

IF  (J.GI.8S)  GO  TO  269 

0208 

269 

CONTINUE 

C 


t 

1 

I 

< 

i 

i 


I 

! 

i 

i 

i 


146 


THIS  PAGE  IS  BEST  QUALITY  PEACIICAflLl 

NRL  REPORT  8228  FROM  COPY  FURHI SHED  TO  DDC  — • 

C 

no  LOOP  FOR  DETECTION  UNO  01  Nt RATION  OF  CENTER  PULSES 

C 

0209 

DO  280  1-12.14 

0?  1 0 

IF  (J.GT.MS3  GO  70  255 

0211 

IDFT(I)*1 

0212 

ICC  I > = 0 

0213 

IF  (SUN(I).LT.O(I >>  GO  TO  280 

0214 

IUFTE 13*3 

0213 

ICC  I )=NCOK2 

0216 

GO  TO  280 

0217 

255 

X*IDFT(I) 

0218 

GO  TO  (260, 270, 275, 280), K 

C 

C 

CMFCX  FOR  INITIAL  OFTECT ION 

t 

0219 

260 

IF  (SUN(I3.LT. 0(D)  GO  TO  280 

0220 

I I = 1 1 ♦ I 

0221 

IDE  1 1 3 = I 

0222 

XF IRST(I)=J 

0223 

XL  AST ( I ),J 

0224 

SN( 1 3 = SUH( I ) 

0225 

IC(  I ) = NC0NZ 

0226 

IDE  T( I 3 = 2 

0227 

GO  TO  280 

C 

c 

CMFCX  FOR  FINAL  DETECTION 

c 

0228 

270 

IF  (SUN( I ).LT.D(I 3)  GO  TO  273 

0229 

XLAST(I)=J 

0230 

IC ( I 3 = NCON2 

0231 

IF  (SUM  I 3.LT  .SHE  1)3  GO  TO  280 

02  32 

SN( I )*SUN( I ) 

0233 

GO  TO  280 

t 

C 

r 

CMFCX  TO  SEE  IF  DETECTION  ENDED 

02  34 

273 

IC(I)*IC(I)-1 

02  35 

IF  (IC(I).FQ.O)  IDE  T(  I 3 = 4 

02  36 

GO  TO  280 

0 

C 

CMFCX  10  SFF  IF  DETECTION  FRON  ANOTHER  TARGET  ENDED 

C 

0237 

275 

IF  (SUM  I 3.GE.DO  3)  ICO  )«NCON2 ♦ 1 

0238 

IC(I)=IC(I3-1 

02  39 

IF  (IC(I).GT.O)  GO  TO  280 

0240 

IOFT(  I 3*1 

0241 

280 

CONI  INIIE 

0242 

2*5 

CONTINUE 

C 

/ 

C 

**************  **************************************************** 

• 

v*  * 

r 
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0243 

0244 

0245 
0244 
0247 


0240 


0240 

0240 

0251 

0252 

0253 

0254 

0255 
0254 
0257 
0250 


0259 


0260 

0261 

0262 


C 

c chick  fan  nr  it  mens 
c 

c 

17  (II.GT.O)  cn  in  300 
N07  KNTAR  )-0 
« ? K CN  T AR  )-0 

If  (PUIUf.ro. 1)  Of  R ( NT  AR  ) = -? 

Rf  TURN 

C 

C MERGING  nf  miLTIPLf  THRESHOLD  CROSSINGS 

C 

300  p ( IM'RGl.rO. 1 I GO  70  400 
C 

C NO  MUt  T I TARGET  RFSOLUIION  PROPLENS 

C 

GO  TO  (310,320,330  ),  It 
C ONL7  1 THRESHOLD  CROSSING 

310  NlJf  T(NT  AR ) = 1 1 
NfR(NTAR)=0 
312  1)0  315  1-1,11 

RANGE(NTAR,I)«RSKID(I)*.S)-RES 
SNDET (flTAR,  I )«SN(  ID(T  )) 

IE  (XLOG.GT .0.0001 ) SNOf T (NT AR , I )-N3DB«E XR( SNDE T (NT AR, I )/N3DB ) 
A/ ( NT  AR, I )*AZIMS«(XLAST( ID(  I ) KXFIRSK  I D(  I ) )-N  3D0)*DE  L 22. 

315  CONTINUE 
RETURN 
C 

C TWO  CROSSINGS  OF  THE  THRESHOLD 

C 

320  IE  ( 1 1)  E T ( 1 3).F0.  1 .OR  .IDE  T(1  3).E0.  3)  GO  TO  310 

C 

C THERE  ARE  TWO  ADJACENT  THRESHOLD  CROSSINGS 
C 

325  IE  (XLAST(I0(1 ) )♦ NC ONZ. L 1 . XL  AST ( ID ( 2 > > > GO  TO  310 
II-l 

GO  TO  310 
C 

C THERE  ARE  THREE  ADJACENT  THRESHOLD  CROSSINGS 

C 


0263 

330 

K-l 

0264 

IE  (IAfiS(ID(l)-I0(2)).E0.2.0R. 

1 XL  ASK  ID  (t  ))«NCON2.LT.XLAST(ID(2>>> 

0265 

GO  TO  ( 340,  350  ), K 

0266 

140 

IE  (IAHS(in(l)-m(  3)).f  0.2.AND. 

1 XL  AST  (10(2))  .LT.XLAST(IDO))) 

0267 

1 1 >1 

0268 

GO  TO  310 

0269 

345 

11-2 

/ 
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0270  IO(2)*IO(3) 

0271  ( ,o  in  no 

0272  ISO  17  (lAHS(IDO)-lf>C  I33.E0.2.0R. 

1 XLASTCinCl ))4NC0N2.LT.XLAST(1D(3)>)  CO  TO  355 

0270  II*? 

02 74  GO  TO  110 

02 TS  TSS  IF  ( IARS( ID(2)-IO(  3)).EQ.2.0R. 

1 XL*ST(I0(2>)«NC0N2.LT.XLAST(I0(1)>)  GO  TO  110 

0276  11*2 

0277  GO  TO  310 

C 

C ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦4.44. 

c 

C MERGING  PROPLEH  WITH  ANOTHER  TARGET  .PROBLEM  SOLVEO  IN  SUB.  MERDET 

C 

C ♦♦♦♦♦♦♦44444444444444444444444444444444444444444444444444444444444 

C 

0278  400  NDE  TCNTAR3*! I 

0279  MER(NTAR>  = -1 

0280  00  415  1*1,11 

0281  RANGECNIAR, I)*RS4(IO(I)4.S)»RES 

0282  SNOETCNTAR. I )=SN< 10(1 )) 

0283  IF  (XLOG.GT. 0.0001 > SNDE T (NT AR , I )*N3DB*E XPCSNDE T (NT AR, I 3/N30B ) 

0284  AZ(NrAR.24I-l)*A7IMS4XFIRST(I0(I))4OEL-N3DB*3EL/2. 

0285  A/CNTAR.241  )*A2  1MS.XLAST  OOC I ))4Dll-N33B»OEl/2. 

0286  4 1 S CONTINUE 

0287  RETURN 

0288  END 
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0001 

0007 


000  3 


0006 

oous 
0006 
000  7 
00  On 
0000 
0010 
0011 
0017 
0013 
0016 

0015 

0016 

0017 

0018 
0019 

0070 

0071 
0077 
007  1 
0076 
0025 


0076 

0077 
007b 
0079 
00  30 
0031 
00  32 
00  33 
00  36 
00  35 
00  36 
00  37 
00  38 
00  39 


SUHROUT INF  STAB? 

C9nwon/TH/NTARG,NJAH,sPEED(20)*HEAUI(20)*HEADF(20)»THANI(20), 

1 THANE (70 ),XHAN1 <20. 3),XHANFC?0, 3),GTURN(20), TURN(20). 

7 CN(20,2>,RADN(20>,ITYPE(20>,ALT(20,5),TALTC20,5>,NALT(20> 

C OH  HON  NSCANfNEXT  , NUN TGI  , T, OLDT  , END  T IH  , SHODE ( 30 ,20 ) 

1 ,P1,PI0V«?  , T WOP  I , RADIAN, TAUC  30),DSTAR*DWL( 30) 

2 ,XYZI(20»6),XYZF(20,6),TRGPOS(20,7),SIGJAH(70 ) 

3 ,SIGTAR(20, 3>,FHV(20),SIGHAH, ISWIT.TEHPWR 

6 ,SHIP(6),RC( 30), RHODE (30, 12) , IHODE ( 30, 2 ) , RE S 

COHH6N  /DEI/  NDET(20),HER(20),RANGF(20,3),A2(20 ,6),SN0E  T(70,3), 

1 ELFV(?0,3),T1HE(20) 

COHHON  /STAB/  R0LL(20),PITCH(20) 

COHHON  /STABIN/  RHAX. PHAX ,RFAC, PFAC , PHASE (2) 

DO  30  1*1  , NT ARG 
IF  (NDETCI).fQ.O)  GO  TO  30 
K =NDET ( I ) 

ROLL(I)  =RHAX*SIN(TIHE(I)*RFAC*PHASE(1 )) 

PITCH(I)=PHAX*SIN(TIHE(I >»PFAC*PMASEC2)) 

CR*COS(ROLLCI)> 

SR=SIN(ROLL(I)> 

CP=COS(PITCH(I)> 

SP-SIN(P1 TCH(I  )) 

AA*TRGP0S<I.S)-SH[P(5) 

TF=TAN(7RGPOS(I,6)) 

X =S INC AA)»CR*( COST AA )»SP* TE«CP )• SR 
Y=COS(AA)»CP-TE*SP 
A=ATAN?(X,Y)*TWOPI 
20  DO  25  J*1,K 

ATEHP-A7 ( I , J )♦ A-AA 
25  A 2 ( 1 , J ) -AHOD(A  TEHP.TWOPI ) 

30  CONTINUE 
RF  TURN 
C 

C INITIALIZATION 

C 

ENTRY  STBINT 

READ  50, RHAX, PHAX ,RPER,PPER 
50  FflRHAT  (6F8.7) 

PRINT  55, RHAX, PHAX, RPER.PPER 
55  FORHAT  (1H0,'  ROLL  AND  PITCH  *,6F8.2) 

»HAX=PHAX  /RADIAN 
PHAX=PHAX/RAOIAN 
RF  AC  = T WOP  I/RPER 
PFAC*TWOPI/PPER 
CALL  VRANF(PHASE,2  ) 

PHASE (l)=TWOPI»PHASE(l) 

PHASE(2)=TW0PI»PHASE(2) 

RETURN 

END 


150 


IMIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
NRL  REPORT  KM  CVl  Y FUKN1‘jH£D  T°  DD° 


i 0001 

0002 


0001 

0004 

0004 
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000  7 
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0012 

0013 

0014 

0014 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 
0024 
0076 

0027 

0028 
0029 
0010 
0011 
00  3? 
0033 
00  34 
00  34 
00  36 


0037 


SUBROUTINE  VPCLT? 

CONHON  NSCAN,  NEXT,  NUHTGT.T,  SLOT,  ENDTIR  . SHOUE  ( 30 . 20  ) 

1 ,P  I,P I0VR2  ,TWOPI,RAOIAN,TAU(30),DSTAR,DNL(30) 

2 ,X  72  1(20  ,4  ),X72F(20,4  >, TRGPOS( 20, 7 ), S IG JAH( 70 ) 

3 ,SIGTAR(?0, 3>,KHV(20>,SIGHAH,ISW1T,TE8PWR 

4 .SHIP (9 ),PL ( 30 ),RHODE( 30, 12) , INOOF ( 30, 2) 

C08MON  / V C I N / NRFG,E  N(5),RS(5).RF(5),THS(5)«THF(5),ELS(5).ELF(5>, 
1 ISF1 

CORRON  /VCLT/  PI2,RAN(304>,FLAMC4) 

CORRON  /CLTOUT  / R OU  T ( 20 1 ) , A2  OUT  ( 20 1 ) , F LOU  I ( 20  1 ) , TOUT  (20  1 ) • 

1 R l OUT (201), PI  OUT (201 ), S OUT ( 201 ) ,NC( 1 00 ) , IC.IV 
COUPON  /STAB  IN/  RRAX,PRAX,RFAC,PFAC,PHASF(2) 

c 

I V = IC 

IF  (NRFG.EQ.O)  GO  TO  94 
CALL  SETVR(ISET) 

CALL  VRANMRAN,  30  4 ) 

ISET  * 2147483647. 4868(105) 

I SI T ’ 24(ISET  22)  ♦ 1 

C TIR/B  IS  THE  TIRE  fll  IMF  2ERO  REARING  CROSSING 

T 1 828- T * 3600 . 

C TIRSCN  IS  THE  SCAN  TIMF  OF  THE  RADAR 

T I RSCN  aR  RODF ( 1 ,5)4  3600. 

C RES  IS  THE  RANGE  GATE  SI7E 

RFS=RC(19) 

IRAN*0 

DO  20  l-l.NRFG 
IRAN= IRAN* 1 

IF  ( IRAN. GT.  302  ) GO  TO  30 
A = THS(  1 )-FLAH(l  )4AL0G(RAN(IPAN)) 

14  IF  (A.GT.IHF(I))  GO  TO  20 
IV^IV* I 
A70UT ( IV ) = A 

X =(RS( I ) ♦ (RF ( I )-RS( I))4RAN( IRAN* 1 ))/RFS 
ROUT(IV)=(R*0.4)*RES 
I LOUT (IV  )=0 .0 

TOUK  IV)*TI«2B*TIHSCN*A/TNOPI 

RLOUT( IV)=RRAX*SIN(10UT( I V ) 4 RF AC *PH A St (1 )) 

P T OUT ( IV )=PHAX,SIN(TOUT (IV)*PFAC*PHASI  (2)) 

SOUT ( I V ) * 3 3.  33 
IRAN: IRAN*  3 

IF  (IRAN. GT.  302)  GO  TO  30 
A*A-FLAH(I)4AL0G(RAN(  IRAN)) 

GO  TO  14 
70  CONTINUE 
30  RE  TURN 
C 

C INI T IAL I/AT  ION 

C 

ENTRY  VCINIT 
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00  )H 

00  19  5 0 

C 

c 

c 

c 

0040 

0041  55 
004? 

004) 

0044 

0044 

0046  4 | 

C 

c 

c 

c 

c 

c 

c 

004  7 

0048  56 

0040 

0050 

0051 

0052 

005)  4 
0054 

0054  10 

0056  05 

005/ 
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8 r AD  50,ISFT,NREG 
F0HMAH2T8) 

(SET  IS  THE  INITIALIZATION  NUMBER  OF  THE  RANDOM  NUMBER  GENERATOR 
NRtG  IS  THE  NUMBER  OF  CLUTTER  REGIONS 

PRINT  5 5, ISE  T«  NRE  G 

FORMAT  ( 1 HO  t * VARIABLE  CLUTTER  *.218) 

IF  (NREG.EO.O)  G"  TO  95 
IF  (NREG.GT.5)  NR  EG  = 5 
DO  5 1 = 1 * NRFG 

READ  51  ,1  N(I),RS(I),RKI  ) . THS(  I ) , THE  ( I ) 

FORMAT  (TF8.2) 

FN  IS  THE  AVFRAGF  NUMBFR  OF  CLUTTER  POINT  PER  REGION 

RS  IS  THE  INITIAL  RANGE  OF  THE  CLUTTER  AREA 

PF  IS  THF  FINAL  RANGE  OF  THE  CLUTTER  AREA 

IHS  IS  THE  INITIAL  AZIMUTH  OF  THE  CLUTTER  AREA 

THF  is  1 HI  FINAL  AZIMUTH  OF  THF  CLUTTER  AREA 

PRINT  56,FN(I),RS< I ).Rr( I)aTHS(I).THF(I) 

FORMAT  C25X.TF9.1) 

RS ( I ) = RS( I )/6,0802 

RF(I)=RF(I>/6.0802 

THS(I)=THSCI)/RAOIAN 

THF(I)=THE(I)/RADIAN 

CONTINUE 

DO  10  1=1, NRFG 

FLAM(I)=(THF(I>-THS(n)/FN(I> 

Rf  TURN 
tNO 
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nnnnnnrtnnnnnnnnnnnnnr>nonnn  ">or»oor»or»or»r»or>or»r»r»  10  * 


OO01 


THIS  PAGE  IS  BEST  QUALITY  PRACTICABLE 
FROM  COPY  FURNISHED  TO  DDC 


Appendix  C 

PROGRAM  LISTINGS  OF  ROUTINES  EXCLUSIVE  TO  SURDET3D 


ppnr.u**  snoot  r 
t 

r This  IS  ThF  SUBpFTJP  EXECUTIVE  R"UTJNE 

c 

'■cecccccccrcccccccceccrrccccccccccccccecccccececccccrcccccrcrrccrrecr 


Df script iom  nr  pat*  c*»os 


PAT*  CABO  NS,  I 

DFTAlLtO  OUTPUT  CONTROL  INTEGER  (TS  FSPhaT) 

0 » NS  OUTPUT  TS  Bf  PB I NTFO 

1 p oetfctisn  output  ts  be  pbinteo 
? ■ ot  T * ILEP  OUTPUT  to  bf  PBINTEO 


OATA  CABO  NO,  i 

title  CAPO  . BIJN  IPENTIFICATION  (Iu.iOau  fop-at) 

I BAOAB  Ip  NUhBfB  FOR  TARGET  OETFCTISN  suTPUT  fji.ES 
Z-?s  ALPHANUMERIC  OF  SCRIPT  I VF  TITLE 


PATA  CAPO  NS,  J 

SHIP  (waPAR)  POSITION  (UFO.?  FOBhaT) 

I«J  POSITION  COORDINATES  f F , V , Z ) IN  BFT 
4 Ship  heading  IN  OECBEES 


OAT*  C*00  no,  4 

It  BASIC  BADaR  PABAHEUBS  (BFO.i,  IZ.Ffc.Z  FOB-AT) 
I padah  frequency  In  hmz 
? antenna  pattebn  function  inpicatou 
« P PENCIL  BEAN 
I ■ COSFCANT  squabf  HE  an 
J BFCEIYEB  NOISF  IN  DB 
4 hop  I ZONT AL  JOB  b£amwIPTh  in  PEGREES 
0 VFPTJCal  JOB  BEabhIPTh  In  DEGREES 
* ONE  »bAY  antenna  gain  in  PB 
7 ONE. bay  SI0FL*BF  LFVEl  IN  OB  U0*N 
s BFCETVFB  loss  I«  OB 
B TP*nS“ItTF»  L'SS  IN  PB 
Id  NU-BfB  BF  SCAN  “OPES 
II  LINEAR  hOl»bIZati«n  IN  nerBEES 


153 


__  bEST  quality  FRACTICABI4 

SLSiuwhshsuw*®6  — " 


DAVIS  AND  TRUNK 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

r 

c 


n ■ horizontal 

id  ■ VERTICAL 


DATA  CARDS  NO,  5 AND  6 (ONE  St  T FOR  EACH  RADAR  SCAKi  MODE) 

15  PARAMETERS  ERR  EACH  SCAN  HIDE  ( 1 0E8 , 2/5E6 , 2 format) 
t L"«ER  BOUNDARY  ELEVATION  ANGLE  COVERAGE  IN  degrees 
2 UPPER  BOUNDARY  FLE  V a T) ON  ANGLE  COVERAGE  !*•  DEGREES 
1 PEAK  PftuE*  IN  h« 
a PULSE  LENGTH  in  MICROSECONDS 

5 JNTERLS8K  PERI8D  IN  SECONDS 

6 SCAN  9EFSET  in  SEC6NOS 

T INSTRUMfNTED  RANGF  IN  N**I 

8 MSOE  DEPENDENT  L«S8  IN  OB 

9 NUMBER  RF  PULSES  INTEGRATED 

to  CRMPRE8SF0  PULSE  LENGTH  JN  HICRSSECBNOS 
It  SEA  CLUTTER  ImPRBvEm£NT  FaCTBR  In  OP 
1?  I.F.  BAnONIDTH  in  MHZ,  IF  0,  BANOkIOTm  «ILL  BE  SET 
AT  I.O/ICRmPRESSEO  PULSE  LENGTH) 

11  H"DE  DEPENDENT  FREOUENCT  INCREMENT  IN  mmZ 

14  BLANKING  time  in  HICRRSECRNOS.  IE  0,  SET  AT 

PUlSE  length 

15  RAIN  CLUTTER  IMPROVEMENT  FACTOR  IN  OB 


DATA  CARD  N8.  T 

7  parameters  frr  moving  minds*  detector  (tfs.e  format) 

1 NO.  OF  REFERENCE  CeLLS  ON  EACH  SIDE  RE  TARGET  CELL 

2 CLUTTER  CORRELATION  COEEFICIENT 

1 NO.  OF  STANDARD  DEVIATIONS  USED  IN  Threshold 
(I  AZIMUTH  OFFSET  BETMEEN  BEAM  POSITIONS  In  DEGREES 
5 VIDE"  TvPE  INDICATOR 

0 R LINEAR  VIDEO 

1 ■ LOG  VIDEO 

b N».  OF  REFERENCE  CELLS  USED  FOR  THRESHOLD 

0 ■ ALL  CELLS  USED 

<0  p SMALLER  hale  used 
»0  R LARGER  half  used 
T PARAMETERS  USED  to  CALCULATE  threshold 

1 a MEAN  USED 

2 a mean  AND  VARIANCE  USED 


DATA  CARO  NO,  0 

NUMBER  OF  TARGETS  and  jammers  1215  FORMAT) 
1 NO.  OF  TARGETS 
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DATA  CABOS  NO,  o and  10  CNF  SET  F 08  EACH  TABC-ET  Ann  JAHf'fH) 

CAMO  B 11  TABCfT  PaBahHEBS  M2F6.*,11  F"BmaT) 
tabret  TbajecToby  Should  not  c»8SS  o DFGBfFS  JN  aEihiitm 
i-«  P TTJai  c"obdinaTe$  («,r,Z,T)  in  kf  t Ann  seconds 
5-S  tfbmtnal  cPPBninATFS  (X.v.ZaT)  in  pet  am>  SFCOnds 

0.11  BADAB  BeELECTIVE  ABfAS  FOB  ME  AO-On , 

HBOA0«SIDE,  AND  “ JH  J “IJH  ]N  $0.  MfHPS 

I ? jAHHjnr,  po»E"  DENSITY  tn  H/“HZ 

II  HAB£U«  j.f»l  Inf.  CP8S8  SECTION  MODf  l 

CABO  in  TaBrFT  PB.FIIF  PABAMETESS  n«,TM>.?  FOBhAT) 

1 TABf.f  | pPOF  ILF  TYPE 

0 ■ STBaIRHT  line  T0AJECT8BY 

1 ■ ?•«  ALTITUDE  legs 

2 ■ G.HANEUVEP  AT  constant  ALTITUDE 
OfMAlNING  PPoFILE  PAPAHETFBS  PV  TABRET  TVPf 

IF  tabge  t Type  p n 
?-■  IGN8PEP 
if  target  t»pe  ■ i 

2 p NO.  nr  altitude  nodes 

1 p FIPST  altitude  node  IN  »ft 

• • time  of  APPJVAL  at  FIBST  n(iof  I»|  SEC 
S P SFCONn  ALTITUDE  node  IN  OFT 

0 P T!«E  of  abpjval  AT  second  NODE  In  SFC 
y p thmo  altitude  n*de  tn  kft 

P p TI«E  OF  APPIVAL  »T  THIPD  NSPE  IN  SEC 
IF  tapcet  Type  p 2 

2 P TAPGET  speed  in  oft/sec 

1 P InIIIaL  heading  in  DEGPEES 

• p TIME  -ANEuvfB  BFGINS  In  SEC 

S P TAPGET  hanEUVFB  BAI1IAL  ACCF.LEPAT  I8n  In  G'S 


DATA  C ABn  NO.  It 

<1  EnvImOnoentaL  PABA“F.TfBS  (uF0.2  F»BmaT) 

1 «InD  SPfFG  IN  KNOTS 

2 HEIGHT  of  . 1ND  SPFFD  HEASuBEHENT  JN  OFT 
1 NIITJPATH  |‘OtCATOB 

I p -UlTTPaTh 
0 ■ NO  h|'l  T JP  A Tm 
1 PATNFALl  BATE  IN  H./HB 
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OaTa  c*PO  NO,  1? 


9 f l*V'  CIUTtE®  PARA"F;TfPS  f?I0,7f®.2  F0P"AT) 

i I M T I *l  I 7*  T I ON  FOP  wanopm  niihpfo  GENE®*!’®  pot 
GENERATION  OF  Fj<FO  Cl'JTTFB  points 
? NO.  OF  Fl»fO  CLUTTER  POINTS 
S PPoRAOTl  ITr  That  CIDTTEP  point  is  OFTFCTF'' 

U INITI4L  RANGE  OF  CLUTTER  *9F  » IN  »FT 
S FINAL  0 A NGE  OF  CLUTTER  AWE 4 T>  VET 
h STANOABr)  OF.  V I * T I On  OF  RANGE  NFAS'JPl“l*-T 

»S  4 PERCENTAGE  OF  RANGE  PES01UTI»n  CFLL  SIZF 
» Initial  aZT«'JTH  OF  CLUTTER  ARfA  IN  rff.BFFS 
0 FINAL  AJINUTH  OF  CLUTTER  ARE*  IN  OEG»FES 
9 STANOARQ  DEVIATION  of  AZIMUTH  of  a SUP  E Mf  NT 
AS  * PERCFntaGE  OF  HORIZONTAL  SOR  0£a>‘»ICTh 


n»TA  f*pn  N", 


2 OASIC  VARIABLE  CLUTTER  PARamaTfBS  (210  FORHAT) 

1 INITIALIZATION  for  rando-  nuh&e»  GENFRaTor  for 
GfNERATjON  OF  VARIABLE  CLUTTER  POINTS 

2 NO.  OF  cluttfr  regions 


DATA  CARO  N«,  I U 


(ONE  CARO  EOB  each  clutter  REGION) 


7 PARAMETERS  FOR  EACH  CLUTTER  REGION  (7E0.Z  FORMAT) 
) AVERAGE  NI.IHREO  OE  CLUTTER  POINTS  IN  region 
2 INITIAL  BAN5F  OE  CLUTTER  ARfA  IN  KET 
i FINAL  Range  or  CLUTTER  AREA  IN  KET 
a INITIAL  A Z I RUTH  OE  CLUTTER  ARFA  IN  OEG»FFS 
S E I nal  AZIHUTH  OE  CLUTTER  AREA  IN  PFGRffS 
o INITIAL  ELEVATION  OF  CLUTTER  AREA  In  OFGRFFS 
T EJnal  ElFVAT  Ion  OF  CLUTTER  ARfA  IN  r.E.r.RFFS 


TiaTa  C*RU  no,  is 


14  ROLL  ano  Pitch  PAPAMETFHS  (uf*,2) 

1 M A v I mUh  B«LL  ANGLE  In  OFG»EES 

2 ><a»]mum  PITCH  AmGI  E IN  PfCRFFS 
S Roll  PERIOD  t>  SECOnos 

a PITCH  PERIOD  IN  SFCONfS 


DATA  CA»I>  NO,  IN 
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T I M F P»8*MtT|TB  (FB.?) 
CD-7  T 7 Mf  nu  SFC) 
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RECYCLE  CoiyTrOL  P4C4-ETEP 


c 

f 

c 
c 
c 
c 
c 
c 
r 
r 
c 
c 
c 
c 
c 
c 
c 

rcocfrr.rr  crcrrcccn-rrcrrrrcrccccccccccr.ccrrrcrccrcccccrrccrcrrrccrcrr 
c 


1 • NF«l 


NF« 

MF  . 

P|IN 


SHIP 
THE 
T4HGFTS 
EMVIBOhEMT 

roxPLF  tfo 


( T 5 F0P«iT) 

IH  «MICH  c»5E 
'IFxt  D 4 T A CA9r, 


IS  Ml.  I 


COmmki,  USC4M, NEXT, HUHTfiT.T, SLOT, ENDTJ«  , SHOPE ( JO , ?0 ) 

1 ,PJ,Plsvfi?  ,T««PI,P»DT*N,T»I.I(JO),OST»P,OI»1  CJO) 

? ,«Y7I(?0,<l),*TZM?0,«),T»r,POS(?0,7),SIGJ*f’(?0) 

J ,SIGT»P(?0,J),PhV(?o)#SIG“»h,IShIT,TE“PhP 

u ,SHiP(q),PC( JOI,P"nnE(Jnf 12),Jhsde (JO,?) 

C">.*"")/b/  E»  VIO( I o ),SUBC( Jo)  ,BE,CNh,CCh,4CSM,5ET4, 

• nnTP(?(1),Pi*LMZ,IKFYF,»KTnnS,*NHT»*«,T4BCSf«iVL,FPP1'JB,FOPIS.. 

4L«»H*D,STGZ,v,»B1,4H?,Sir-C,SIG 

r'’',HO>,/H/F»C'l,4HF*,,*J»MM,lKE»JG»*F7)<> 

P«PS,HOFK,IHETBK,n«nO*^#THM,rHV,GS 
C«.Mm,/Ti/i|T»Pr.,F;.l»H,SPf  Ffi(2n),MF*ni  »0F(201,T«*»i  I (?0), 

1 TH4HF  (711),  «M»FI  (po,  J)  , XH4NF  (?0,  J)  .GTllBK  (?(l)  , IuFMZl'1  , 

? r»(?0,?),B»nH(?o),ITYPE(?('),M.T(?0,5>,TM.7<?iJ,5).H»LT(?i') 

Cn«M"N/TS/ISTiT(?n),Tsc»*i(?0,JO) 

cn-ipof-  /CLT""T/  BSUTt?o1  J,  »|OIIT(?01  ),Fl  (1I|T(J01 ),  rourtii  1). 
i PiP"T(?oi),0TouTc?on,S"im?oi),>icnoo),ir«iv 

/rir/  hHET(?0),mFB(?P),P4*  GF  ( ?l) , J 7 , 4 Z ( 2(i  , 6 ) . Sf  PF  T ( ?0  , J ) . 

1 FI  FV(?0,  J),TIHE(?0) 

[•►mon  /oetj/  M)FTJC2ft,  J0),*«FBJ(?O),b*nGFJ(2o»9,  J0),4ZJ(?P,Q,  Jo), 

1 S‘ l F TJ(?0,9,  JC)  , T I -*r  J(?OJ,I«EV(J0) 

CO'-»Mi  /$Ti»/  B0U(?'>),PITCH(?O 

ni‘E’  S10F.  IT1TI. f f?o) 

i)ThF>.s  r**.  Hurt  (»,  j no)  ,4i.i  F < i ii ) 
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SUBROUTINE  ADJDfT  fRES,TMTPa,ELV’H,K,Nf  MJJ,*TAP,  I,J) 

T h ! 3 P«uTINE  determines  onf  Togo  THf  present  DETECTION  Of  The 
k T AB-T»  TAPRET  IN  THE  1-TM  HOOF  is  ADJACENT  TO  The  PBfvjnijS  DETECTION 

C"“H*N  NSCAN.Nf XT,NU"TGT,T,nLDT,f NPTIM  , SHOOE ( JO , 20 ) 

1 ,P1.»I"VBJ  ,T»0Pl,P»ni»o,T*'i(10),nST*P,p«L(J0) 

7 ,»T7I  <2n,4),xr2F(20,a),TBRPOS(20f  7>,8IGJ»0(2") 

J ,SIGTAB(?"f J),Fhv<20),SIG«AM, ISMIT.TEmPoR 

4 ,SHIP(«>, PC  f JO), Rhode (Jn,  i2),  IH(*0E(  jo,2) 

Common  /mebsET/  PETPAR(|i)n,a) 

COMMOM  /PET J/  nPE Tj(2o, Jo), HER!(?n),B»NGE3(20,9, Jn ) , a2 J r 2« , Jo ) , 

1 S‘.ni  T J(2n,0,  SO)  time  J(2o) , IfE» (20) 

BfS  IS  THE  RANGE  RESOLUTION  CELL  SUE 
Thjop  is  The  j-pp  azim( jth  antenna  REAH»inTM 
FLIP®  IS  The  FU4ATIBB  J.pn  BEam«IPTm 
K IS  The  PRESENT  NUHOEb  OF  APJACfNT  DETECTIONS 

ne»jj  is  the  present  number  of  nonapjacent  detections 

KTAB  is  THE  1 NDE  X OF  TmE  RbeSENT  TARGET 

i is  the  index  of  the  present  detection 
J is  The  IHPEX  Of  THE  PRESENT  mode 

BpPANGt!fXTAB,I,J) 
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E ■ BM0n£(j,l)  « RC(S)/2. 
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RR(|J  C""mon  **SCan,nE  AT,MJMTr,T,T,SLOT,f  NPTIM  , SMOPf  c J (1 , 10  ) 

1 ,PI,PIRVK>  ,T«0PJ, RADIAN, TAUMR>,08TAB,D«L(J'') 

7 . »T7T  <70,a),XTZFC?0,it),TRGP*Sf7R,7),SIGJA-(7n) 

S ,SIGTAP(70,  J),FMV(?U),Sir-MAH,  IS»IT,  TfMPwS 

u ,SMIP(«),PC( JO ), PROOF f JR, 17), I -ORE (JO, 7) 

t)RR«  r»MMPN  /"PO/  mpdel  (70 ) 

O'lOS  COMMON  /ELUC/  ELUCT(J7,jo) 

0006  niMFNSIPN  SA'PFF  (211)  , INF  (?R) 

ROOT  0IMFNS10N  X<J?,?S>,5S<j?,?S),SUM(?S),I5(?S).R(I7P),0(1<l) 

C 

r S IS  IMF  signal  PPpF.R 

C C IS  TmE  CLUTTFP  PP»EP 

C F N IS  TMF  NOISE  RpMFP 

C NJRH  IS  TMF  NIJMPFP  of  PULSES  BEWfN  TMF  J.DB  antenna  POINTS 

C C*»  IS  TME  CORRELATION  C«FFFICIEnT  OF  CLUTTER 

c F$  I G NiiMBfP  OF  STa»iO*Bo  OE  V I AT  IONS  USED  in  CALCULATION  OF  TmF  T« 

C NBFF  IS  TMf  NII-PFR  OF  REFERENCE  CELLS  "N  EACH  SIOF 

C »FS  IS  TmE  Range  RESOLUTION  CEIL  SIZE 

c nt ap  is  tme  target  of  intfrest 

c N IS  tme  number  "F  TARGETS 

C Txjoo  IS  Tnf  ANTENNA  J.DB  REAMoIOTm 

C “ODE  I*  The  INOEX  "F  Tme  ‘CTIVE  PAOAB  Mft0E(I.E.  BEAM  POSITION) 

C A 7 IN  I T IS  TMf  INITIAL  SEAM  position  ESP  TmiS  SCAN 

C AfMSP  IS  Tme  aEImuth  off  set  BFT-E*n  aEI-utm  pfam  positions 

C XL  og  DENOTES  »HETMEP  L IN£  AR  ( «l  ftG«0 , 0 ) op  L"G  ( XL  0G»  1 . o ) VIOFO  is  uSFD 

C T mb s m denotes  omftmfR  aLL  TmF  PEFFPFNCf  CELL S ( T mo s^.p , p ) , Tm£ 

r SmalLFR  male ( ThPjm«o ) , OB  Tmf  LARGER  m ALE ( TMRSmpo ) JmOuLO  “E  U$f d 

c BARM  DENOTES  OMFTMER  TmE  “EA1'  AND  V AR  I A NCC  (R  »B  ■>  1 ? , ) "P  JUST  TmE 

c Mf  AN(PAPMt)  ,)  SMSijLD  »E  USED  TO  CALCULATE  T-e  TmPFSmOLd 

r 

C NOTE,  DETECTION  Tl-f  is  SFT  EQUAL  To  T •• a •• a a •• •»«* 

BOOS  IF  (NjfP.LE.  J7.AND.NREE.LE.IR)  G«  To  3 

IMIOO  phjnt  so 

IMIIO  SO  format  ( 1 Ml , I EITHER  NjDS  OB  NPFE  APf  TOO  | ARGE  1 ) 

0"U  ST»P 

0017  S IE  (AnS(CRRT.LT.).O)  Go  TO  <1 

(«0)J  POINT  si 

nuiu  SI  format  (|M),>  CORBEL  AT )0n  COFFFICIENT  TS  GPFAtfB  OP  f Q u A L To  )•) 
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00?? 
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o o?b 
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• 0 JO 

09  J 1 
noj? 
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0 0 JO 


00  JS 
0037 

M(>  ** 

'»  o 1 9 
‘M*aO 
V 0 u 1 
oou? 
0003 
00  40 
(i  0 <1  S 
0 0 4 0 
(I  .Ml  7 
004b 


5 


V’? 


c 

c 

c 


?PS 


c 

c 

c 

c 

c 

c 

c 


7 


c 

c 

c 


STOP 

CP'.T  INIjf 

TfJT  T"  SfF  IF  TMFBF  IJ  Y CHFNCf  "F  « IlPGtT  DFTFCTIPN 

FORM*  I nMO,?«,  "OH  ■ , 15,  JE15.PI 
S«1N7«*  JFHpg/  (C  tfh) 

IF  fVMNT.GT.?)  0"  TO  8 
NOF  I J(*  TAP.xPOE  )«(> 

SMRUE  » 10.  ••(•0.9) 

Of  Iuon 
SNOFTM  )•» 

IFF ( 1 )iNT*« 
upt  off 

CHI  MFSOl(N»FF,PES,NT»B,SH»FF,I*F,WI,TMJOP,H) 

FnoMFi  mho,'  tppijfts  pBF'.lolS) 

«»7p(T°GP"S(,iT»P,«)  -»7IMIT)/*7»BP4.5 
11*0 

OP  |.rPF  F pp  ThF  Three  *7 I“UTh  hE»h  P08ITIPnS 

r»7»" 

I » 7*1 *?♦ 1 

*71H«»7PPP»fP»7»t*7-iU*7lNlT 

«PS»I"r.PPSfNT«P,R)/RE$ 

»S«BFS»KP$-U.  »PF  S 


OF  flFOP  I I PH  PF  Slf.NIL  V41IIFS 


*3*1 
NF«N  V“ 

* NS»1 W PEF-? 

MPF«1  JH'PtfP? 

HP  7 l«.'PS,.RF 

ism*" 

IIP  7 J«“'S,NF 

ssij.  n«o. 

I»f  pr,F  «ii 

l'p  0 0 »«1i*«I 

PP»T«&PPS(IHF(P)#u) 

KP.fpp.usims 

IF  C .FI3.1  .(IB.PB.GT.  Ifc. PP.FB.LT. 10)  r.p  TP  P 
I "l  PGf  »l 

FlUCTC*  TI'.G  Sir.S«L 
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00  <19 

A 

N5fc»“oofL<i»,rrK)) 

n n 0 o 

IP  (»<8».RT.0J  G«  TP  It 

..051 

»L*1  .o 

0052 

9 

n*  t > j»"8,67 

.105  J 

1 « 

PLUCTfJ,K)*Pl 

or.5# 

G*  TO  171 

O0'65 

1 1 

GO  TO  (l#,J 5,15,16), 68* 

0056 

1? 

IP  U«f7(“<T»»),GT.O)  GO  TO  171 

0057 

CALL  VPANP(P,1) 

nos* 

pl  6-»L0G(9(n) 

CO  5 • 

GO  TO  6 

0060 

n 

M*6P*1-NS 

0061 

C 61 L vbanF(P,m> 

006# 

PP*0 

0061 

06  tu  j*M8,NP 

0060 

KP*K«*| 

0065 

i a 

PLUCT(J,«I«.»L0G(P(66)> 

0066 

GO  T»  171 

0067 

15 

IP  1 1 *>  e 7fXTiS).GT,0)  GO  TO  1 7 1 

00o6 

C»ll  VMnP(9,#) 

0 006 

Pl»-.5«(»LflG(P(n)*6L0G(9f#))) 

00  7 0 

GO  TO  6 

o"7J 

16 

“«“.F*1-M 

007# 

0O7J 

CALL  VP4‘.P(P,h#) 

oo?« 

*K«0 

V>75 

PO  (7  J«1'8,*<P 

0076 

PK«KK»1 

o077 

17 

PLOCM  J,P  )•  (»LOG(P(P*)  )«*LOG(»f  *«♦«)))*(-,  5) 

<■076 

171 

CONTINUE 

0076 

51? 

FORMAT  (|H0,'  "EPGING  PPOPLe*'  (*,KP,  I*E«G€ ) * '.Hi") 

0 0*(l 

00  J5  I*(, J 

005  | 

0 7*PP*1 •# 

006# 

IP  (6T,LT,nb8.op,kt,GT.MPP)  CO  TO  15 

o 0 6 J 

c 

I8(*T)«i 

V 

c 

“"OULATTon  OP  9 TP.  ( k ) /K  PULSE  SHAPE 

1.0  0 6 

c 

P T E hp  » P T *BI S*Pf  8/2 • APS 

oiio; 

Pf'TP»?.7*l#*(P0-PTf  HP)  /BPS 

00*6 

P«l. 

00*7 

IP  (PDIP.EG.O)  GO  TO  |* 

O'1** 

P*SI‘J<Pr)IP  I/POIP 

00*6 

19 

P*P  »P 

1.060 

SH»P»S*PEP(  * )/(C*PH) 

0061 

5*»  3 

POAM»T  (1*0, • KT,«S,*TE“P»»P,PnIP,P ,SH  ■ ',I5,6P|#.«1 

<•  <6# 

aa*TP&P0$(I5P(«),6) 

C I / 

c mupml* 1 1»>.  *i  si*  m/i  ante**1*  patted 
c 


i 
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GniFa?.703P*f  ii\»  . aaj/ThSo*? 

fillQU 

510 

mpmatmho,  • GDIF,AZI-,AA,A7IMT 

»M»05 

r-.i . 

t,no* 

IF  (Gf IF.fP.o)  go  to  iq 

Oi'97 

GbSIMG'MF  ) / G n 1 f 

iM'QS 

1 0 

G a G * * a 

1 0 OP 

r 

no  ?n  j»a.S#5F 

L 

c 

r 

• ••••  *orf  , TAPGFTS  ape  aTOFO  non 

'-mo 

l 

SSf  J#*T  )aSS(J#*  T)4S"*G#FLUCH  J,K) 

o f 0 1 

?0 

COST  TS'  F 

* 1 0? 

55 

cost INmE 

r.  i r»  5 

aO 

C OnT  I s'jE 

(,10a 

1 f ( I a 7 ,SE#  >)  G*  TO  Uc5 

• •I  05 

SNTPHf  a 0, 

(110  6 

no  pc?  J a n$#nF 

mU  7 

«9  J 

SsTRUE  a S'T*L'F  ♦ S$(J,n)/N*0P 

0 1 0 * 

405 

C»  T I MiF 

O 1 MO 

r-o  4i  i«»ps#spp 

111  10 

IF  (IS(I).EO.P)  GO  TO  41 

0111 

501 

format  ||HU,'  I,nS,NF  , '#515, ?5f/ 

OH  2 

a 1 

CONTINUE 

oil! 

1 K F V (NTAO Jal 

o 1 1 a 
CMS 
UII6 
OH  7 

•il  I* 


'ill? 
i}  I ?•) 


<n?? 

o1*S 

n I ?u 
•)  1 £5 
ol  ?b 


0" 


r.f ‘.frOAT  ICir.  -,f  s*jSF  SAmPLFS 


mb*  F 4 1 
MPa?** 

Mla5** 

Main** 

IF  (NjPft.C  .GT.FN)  GO  TO  100 

CLUTUw  IS  A F AC  7 09 

po  Qo  Ii^PS#^9F 
IF  (IS(I).eQ.n  GO  TO  75 

SO  SI  Ft*  At  PPtSE»iT  IS  This  CEIL 

call  yOA^F  (O  ,**) 

*eQ 

D o 60  J a n 5 # N F 

* a*  ♦ 1 

* ( j,  n«soPT(-p.*ALOG(»fin  n 
COsTINMC 
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MU 
( 1 At 
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Mil 
ii  MU 
"MS 
•i  I S') 
"M7 


" I 1* 

■ 1 }Q 

0 I 0 u 
"lot 
"to? 
" 1 u I 

I;  I UO 

it  uS 
"I  it> 
"luT 

<1 1 1I* 

'll  u<t 
"1*1 
"1*1 
"1*# 

■ ISJ 
''1*0 
"1** 
II  IS* 

01  *7 
"IS* 


"ISO 
" 1 #>0 


I1 1 *!  I 
" I h? 

"UJ 


r.  * t * 0 u 
C 

r.  S]G"U  potSfiT  t • t«is  r.tu. 
c 

TS  c»ll 
K»n 
r*  *" 

»*<  ♦ t 

i '-?,**i  *i> (<*(*  t n 

• » t*  ) 

»f.t,n*s''«’f(»*c"Sfs)«su“T(SS(j»n)»i.uiu)«*?*  m*st'  (*) )••/) 
*"  r*sf  [M'f 
0"  c 7 I V'F 

o*  T*  gf) 

c 

C CLOTUB  rs  4 r»CT"P 

c 

in"  »*i.m»sooT<c/(C*F>!)) 

rr*4*i  I.'* 

r»\*S'J01  (Fs/(C*Fi  )) 

P*SQBT  f 1 ,.C*B»C«B ) 
r*  t SO  i»sbs,nBF 
r»LL 

cr«ST*i(T.*Pi«o(  nj.jgpff «?,»*i  *r,( p(?n> 

4*1  on*  fC*C«S(7.(»Pt»0(n  ) *S0»7f ) ) 

C *LL  V04-IF  (P,“Ut 
Kill 

n*  tjy  iiis.'ip 

»pK*r 

4 «s<,«r  *c,(u(«  i ) , tec 

41  *»'J«Tf-?.**L*G(R  («♦“)) 

* »T*"®T  »u  ( *♦“,» ) 
oi»T»*Pl»B(1«“St 
**Ln«pc*B»4*Lr>»»B«4  4C*s(“) 

4*inypc*i'»i«LMf*0  4*»st',(s) 

«fj,i)»si‘'7((‘*ir'***i»c,'*<Bn‘SJBTiss(j,n)*i.uiu)»»?  » 

I (4*1  r»Y441*ST,‘(P1  ))••?! 

1?ll  C*'1I'I"F 
1SI)  C*’7>‘"I4 

r 

c &r>ifB4tj*'.  *f  su* 

c 

f;n  “S»sS*'.jriM-i 

IF  dl’r.l  T,p,0*91  ) G*  T*  *1" 

C 

C UM  l 8 <5  v I nf  * 

c 

r*  *"*  jus,-* 

0*  ?"*  TP-BS/XBF 

ms  «(j,np*i"sr<(J,in 
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0166 
0 167 
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i'16« 
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01  71 
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0175 

0176 
«177 
017* 
0170 
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lit*} 

01*1 

0l«» 

ci«5 

01*6 

01*7 

0I*» 

ill** 


01*0 
0l«1 
01*2 
0 10* 
■■i*tt 
oio* 
•It  *6 
0107 
oto* 
oi*o 
o*oo 
o}oi 

l'?0? 

''2"1 

02"« 


210 
2'i  1 


220 

C 

C 

C 


210 


C 

e 

c 


c 

c 

c 


215 


20  0 

2«5 

2«* 


25" 


C*»  r JM'Jf 

no  ft it  i«nbs,n«e 
C 06TI  Nl  'f 

no  220  Ibubs.nbe 
Shh( i )«o , 

00  220  J»6S,MJ 
siiM(i)6Sii*ri)»<(j(i) 


Cfne**7T*»'  or  THE  DftEcTt«N  thresholds 


no  250  J» 1 2, 1 u 
IILOo.o, 

uu*«o,o 
‘“SLOkoO." 
rMSU**f , o 

n*  21')  I«l#6»fr 
UL0N6UL*«*5IJo(J-I.U 
UU*iUU**8U* { J*1 ♦ 1 ) 

K*8L006*6SL«**8U*'(  J-I-1  )»»2 
xm8u*6»,»su**su*'(  j*j*n.*2 
IF  (THO8M.NE.0.0)  so  TO  215 

USE  *u  REFERENCE  CELLS 

U0UL*«0UU* 

»*8o*m8L*"**m8U* 

P(  Jl«U/NREE2tE8IS»8Qi»T(*“8/NBEr2.(i|/«iOrE2)»o2) 

IE  (BARM, 6T. I. 5)  SO  TO  250 

(UJ)aE8IS*U/NBFE2 

IE  (EL06.LT. 0,0001  ) GO  T»  250 

n(J)*ESIG*U/NB£E2 

60  TO  250 


USE  E1T«E*  i*Iw(ThR8H«0)  OB  ma((ThBSM>0)  REFERENCE  CELLS 


IE  (TmBSM.LT, 0.O.**I0.UlO".LT.UU*)  60  TO  }«o 
IE  (TmBSM.LT. O.o, AND, UL**«SE,UU*)  GO  TO  2«5 
IE  (TMBSM,6T,0.0.*NO.UlOo.LT,UUB)  CO  TO  2«S 
IE  (Tmbsm.p.t.o.O.ANO.UlOm.CE.UUB)  6*  TO  2 «o 
IIBULO* 

EMSar^SL®" 

60  T»  ?«* 

UEUllP 

««Sb«m$hb 

n(J1oil/N»EE»E8IS»8QBT(]|MS/nBfE-(li/MBEE)«»2) 

IE  ( B abm  ,6T ,1,5)  60  To  250 

0(J)oESI6«iJ/*'BEE 

IE  (»L"6.LT. 0,0001)  60  TO  25" 

n(J)aESI&»U/n»f E 

CONTINUE 
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IF  («L"G.GT.  0.0001)  $nnf  T J(NT»fc,  II  ,-onf  )aNJOB»l<P  tSU“(  I)  /'-iDB) 
2*0  C0*iTINI'F 

S2»o  FOBMiTflHO,  • su«  *NP  ToBESHOin  a ',0»,6Ft2.u) 

IF  (I*7.LT.i)  c"  TO  200 

C*EC«  fop  DETECTIONS 

IF  (II.GT.«.»*.*'fBI(NT»B).E0..1  ) G"  TO  loo 
IF  (I-fBGt.EO.n  -FB J(NT»9)a-2 
SoO  BFTUPN 
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'ion 
not? 
O'M  J 
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Oil? 
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Pin  7 
0016 

0019 

0020 
onji 
no?? 
0"?1 
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no?  9 
0010 
0011 
I.IIIJ2 
nnj5 

I 0 ?U 

(.915 
no  J6 
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SUHBOUTINF  FFCLTJ 

tr«"i  >,sc»'4,Ne*T,*i'iHTr,T,T,Oi.r5T,F')oTiH  , $»or>E  ( 30 , 2 n ) 

I .PI.BJOVB?  ,T«1oT,B»’II*w,T*u(Jo),nST»B,f)^|  (J'M 

? , KVZl(20,<i),«YZF(2(i.u),Tor,Pos(7<>,7),siGJ*H(2ii) 

J ,Sir.UB(?i|,  J),FHV(io),SIC“*M.  t?«IT,TF“B-B 

a ,SHl*f«),RC(10),BMon€(  Jo,  I 2) , T-6I1F  ( 1».?) 

CO»“,,l  /FCI*)/  n,pbob,Oj,PF,ThS,ThF,siG4,SIp.O,  TSFT 

[0“»"1  /FCPT/  B(10P),  47(100),  S»0(«I11),*.?1N1,M 

COMMON  /CL  TOUT  ✓ BOUT  (2od,AZPUT(20l  ),ELPUT(20|  I.TOuf  (2o)  1. 

1 Ml  OUT (201  ),PTOUT  (201>,SP'JT(201  ) ,HC  (1  00) , IC.  IV 
COMMON  /SUHJfl/  RMl*,pM**,BF»CfPF4C,PM*SF  (2) 

lC«n 

IP  (N.FG.O)  GO  TO  is 

T I m 7 o IS  The  TI-F  OF  TmF  ZfcBO  BEaBING  CBOJsInc 
TIM70«T« J600. 

TI«SCN  IS  TMf  SC*m  time  of  the  BA01B 
T IMJCNOBMOOF (1,51*1600. 

BES  IS  TMF  BANGF  GATE  SI7F 

C»ll  SFTvB(ISET) 

CALL  VB  4 NF (BAN, NO) 

ISFT  ■ ?1«7<I»?6«T..B4N(|) 

1 5F  T ■ 7*(ISFT/?)  * 1 
f>"  ?n  I«1,N 

IF  (B4I (I1.GT.PB0H)  GO  TO  20 

ICpIC*1 

NfdciPi 

T NoPAN ( I *NJ  *T«0PI 

B*i»8Q0T (-2.»AL"G(P4N(I*N2)  ) ) 

* • (P  ( 1 1 ♦SI0B#BAV#CPS(Tm1 1/BES 

B31IT(IC)»(«*0.5)»BFS 

TOuT(IC)»TIm7b*TTmscn«»Z(I)/ToOPI 

GF'iEPAT  I on  of  bo(.l  *no  PITCH 

Bl *UT  ( TC  )■»»»)(•*  JN( TOUT  (IC)«bFaC*"ma$E  ( 1 ) ) 

•TOUT  (IC)»PH4**3I'<(  TOUT  (IC)*PF4C*PH4SF  (2)) 

CB«C"S(BL0ilT(IC1) 

SB«STN(I.L0UT(IC)) 

CPpC'S'PTSi'Tdcn 
S»«S)'I(PT0IIT(IC)  1 
44**Z(I )-ShIP(5) 

EL»o. 

TF»0, 
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..if-p.tf  n*MS,1).fi3.I  >PF»(3,2))  r,0  TO  so 
Sir,*  e o 
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n * U'  .1  e 1,2 
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I T ?P  E J5P*  * (?, 3*J) 

I T 3*  * tfOEMJ.J-P) 

sir.*p  e sir,;*  ♦ sjg<w(iti,it?,itit* 

* »PS(*P*»n,ITlP)-P*Pf  JD* 

* A*>$fXP*P(2,IT7P)-PAR(2) )« 
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* **SfXPAR(2,IT2P)-PAP(2))» 
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SIGN  E 1 , 

PIT  So  I El,  3 
TT1  e T'iCEX  ( 1,1) 

IT?  E 156*5(1 ,2) 

1P(»P»P(I.!T1  ).EG.5PAP(I,IT2))  Gr  Ti  *p 
SIGN  E SIGn»(xP»R(I,ITj)-5PAP(I,TT!)) 

*o  c SNT 1 5(1* 

5 TG7  e SIG7/SIGN 
SIGZP  E SIGZP/SIGN 
G*  TT  6n 
5«  C *NT I N(;F 

1 T ) E IN 6*511,1) 

IT?  E IsCFX(?,1) 

T T 3 E iur*  5(3,1) 

SIG*  * SIGOHMT), 172,173) 

S1G*P  e SIGPV(IT1,IT2,IT3) 

60  CONTINUE 

Sir.*P  e M .•♦(SIGZP/10.) 

SIG*  * H'.**<S!G7/10.) 

SIG7  s S6RT((S1G7*C*S(iNG  ))•»;  ♦ (SIG7P»5I1J(»NG)  )•*?) 
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SMOR-in  |r.?  G*  t ’ (I*f  V,JT»'».It»»,r,4ts»1 

c 

r JTiP  * T 4WGF T mmieb  OEtECT!"" 

C IT»«  ( Har.fT  FOB  «Hlr»  EJtLO  STRENGTH  UiTI*  is  T * pr  1 1 I SFP 

c 

►iS<‘*N,SF»T,M|0Ti;T,T,6Lr>1«f,»',1l-  # B“*flF  ( 30 , ?o  ) 

1 .PI.PIOVB?  ,T**Bl,B»m»«,,T*ll(Sf|),rST*9,n»l.(Jll) 

? ,«V7I(?I.,U),*»7K?0,I|),TI<CBOS(?(|,7),SIGJ*''(?'>1 

1 ,Sir.T*B(?i»,S),FHV(JO),$IG“»H,  ISihlT.TjMP.B 

o ,SPIP(<»},BC(  Ju)  ,»BOPF  ( }!•,]?),  JXHOF  { JO,?) 

CHMUfi.i/t/  fnvjB { ioi ,supc ( jc) ,BF,rM',rcM,»c»oj,Bf r», 

• no  TP  (PO)  ,P"t  Hi,  IKEVF  , IKTOI-S,  T4PCS,»vl  ,rop  j<50,F  OPJSO 

c*MMo»i/r./  S»T*B,SI»  P8I  .C^SPS! 

COomoii/I/  PSPS,  h"FK  , TH^T**  .OPTOm  , Twh.Thv.GOi 
IF(TxFV.fQ.I)  r-0  TO  10 
G » I p * S'>BT{FHV(IT4R)1 

be  tubm 

in  CO*  T 1 MI*F 

o*h  a SoL»fir.fTBr,Bf)S(JT4B.5)-TPr.P0Sf  ITIB.SJ) 

*LFV  ■ (?.«S»T»B«SINPSl*CP5BS!/(TRr,P"S(!T»9,<l)»«N«<TI>»)l 
JF(*l FV.Lf .1 ,)G«  T«  30 
rrairv.LF.t.nl  )G"  TO  mi 
uo  «iFval. 
so  ca*iT I 

41FV  ■ *PS!N(»IFV) 

»LFV  * TBGP0S(IT»P,6)-»LFV 

04V  a JMl4Mr.fTBGP0S(JT4B,6)-»LFV) 

IPT«C(?).EO.».)  04V  a fPB«S-»lFV) 

IF(PC (!) .11. 1 . ' GO  TO  ?0 

IF(«4M.LE.(1.13*BC(«)).*FiP,04V,Lf,<1.11»BC(S)11  GO  TO  ?n 
0.4INB  a PC  ( 7 ) 

BFTiJBii 

?'l  F«  a BF*P(04H,BC(lll,BC(i)#f  ) 

Fv  a «F B£ fS),9C{7), I ) 

C.4TI.B  a FH.FV 

G*I*;E  a 4H»*1  (‘■•C(71.$0BT(G»t*.P)  J 

BE  Tubh 
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(tool 

0002 
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0005 
0000 
0007 
1)006 
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0010 
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0020 
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0024 
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0027 
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0010 
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1)011 

0014 

0015 

0016 
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0040 

0041 

0042 


SUBROUTINE  JAM(JTAB,CJ,EC) 

COMMON  NSCAN,NE*T,NUMTcT,T,OLDT,ENOTIM  , »M8I>C  (10,20) 

1 ,Pt,PI0VP2  ,T"OPt,BAt>tAN,TAU(]0),DST4B,04L(10) 

2 . X72I  (20, 4),  XT2/ (20, 4),  TBGP08(20. 7), 8IG„'*m(20) 

1 ,8IGTaB(20,1>,PMV(20),8IGm4m,I8mIT,TCmPi.B 

4 , 3HI6(6), PC (10), RM0DE (10, 12). 10002(10,2) 

COMMON/H/  ENVIP(lo), SUBC (10) ,RE ,CNM,CCm, ACON.BET  A, 

4 (IOTP  (26)  ,P0LPZ,  IKPTP,  XKTOMS,  XNMT6M,  TAPCS,  MVL  .POP  IQB  ,P  6PI8G 

COMNON/O/  AtPHAO,»lGZ.V.API.AP2,SrcC,OIO 

C6MM6n/M/FAC4,AMBN,XJ4mN,IKEVJG,XXXXX 
COMMON/!/  P6BS,M6PK,1METBK,PB09MN,THM,ThV,GM 
C0mmon/tS/I*7AT(20),T8caN(20,10) 

FJbO.O 

PACTOPo  MVL4MVL/P0PII04PC(6)*PC(6)*PM90E(NEXT,6) 

MR  6 Sh:P(!)4XNMT6M 

NT  s TPGPOS(JTAP,1)4XNmTOM 

•L  * OfDOoNoOBOOoN 

AGAIN  6 1 

TMET6  6 PC (3) 

PHIB  6 PC ( 4 ) 

06  20  Jll.NUMTGT 
C CMEC*  IP  7APOE7  AC7IVE 

IP(18TAT(J)  ,NE.  1)  86  T6  20 
PJsllGJAM(J) 

BP  ■ TPGP08(J,4)*XNMT0m 

IP((PJ.lE.CO.).AN0.J.E0.JTAP),6P.BR.tE.(0.))  00  70  20 
6 AHaBNL ANG (TR6P0S ( JTAR, 5)*TPGP6t ( J,5) ) 
OAVs8MLANG(TPG»OS(JTAP,6>*TPGPOS(J,6)) 

IP  (PC  (2)  ,E0, 1 , ) OAV  a (PBB8»TP6P08(J,6)) 

IP(PC(2).E0.1.)  GO  TO  |0 

IP  (6AH,LC,(t,t 1*PC (4) ).AND.OAV.LC.(l,l 1*PC (5) ) ) 60  TO  10 

PMV(J)PO6D0MN 

GO  TO  13 

10  PM  a BEAM(OAH,RC(4),PC(2),0) 

pv  a BEam(Oav,PC(3),PC(2),I) 

PMV(J)aPH4FV 

IP (PC (2)  ,EQ.  1.0  .AND.  TPGP68(J,6)  .LT.  RmOOE (NE *T , 2)  .AND.  PM 
• .CT,  OBOOHN)  GO  TO  15 
PHV(J)aAMAX|(06DOMN,PHv(J)) 

15  XJAMFA  a PACT0R*PJ*PHV(J)/(8P4SP) 

CALL  MljLPTM(JT*P,J,PAC) 

X J AMP  A a X J AMP i#pAC*PAC 
EJ  a EJ  ♦ X J AMP  A 
XJAMN  a EJ 
20  CONTINUE 

C CALCULATE  TME  SPPfCT  OP  CLUTTER 
EC  a 0, 

23  8P  a TPGP08(JTAP,4)*XNmT0M 
IP(fNVIP(1).LT.O)  GO  TO  10 
DC  a ( 1 ,»MP/(2.»PE ) )*80PT (8P»8R  - MPamP) 
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RH7*  a 2.*-B/(S“7R*SflR7(B*DM2)> 

00*1 

6"  78  27 

»0b  2 

2* 

BBT*  a | ,£ « IS 

00*1 

27 

IF (R*0P2 ,17 , 0 1 6"  78  2* 

00*0 

BP7*  a ?.»H9/(SP78»80B7I«*PP2) ) 

0U*S 

IF (RP78.L7 .0)  RPT?  a 1.EOS 

on** 

GO  TO  29 

P9*7 

2* 

RP7*  a 1,e*1S 

no** 

29 

C8H7IBUE 

006* 

R | a »*IM  (8R,0S7»R*Xnm79h) 

0 0 70 

02  a *►* i n t (8R*V#[)87*R«tNBT6h) 

ni)7t 

IF(R-T».L7.1)  P-7*  a 1.£*JS 

«<>72 

SI  a *-*Xlf9I,BP7*> 

0071 

82  a *-IM  (R2,PHT8) 

0070 

-8  a .S.PHie  *(1  ./(8l*$l)-1 ,/(S2«S2)> 

no7S 

«B  a PI*(l./(Rt*R1)»I,/(R2*R2)7 

00  7* 

*8  a *-*xl (o.n.-SJ 

nn77 

*R 1 a «B 

0 " 7 * 

*R2  a »S 

<'0  70 

C a TE-PbR«8R»*#«SIGZ/T»BCS 

00*1 

SIG  a C 

no*  | 

8IGC  a C*((»G»IH»8L)*-S*8L**R)»SU8C(‘(F.X7) 

i)0»2 

EC  a SIGC 

00*J 

10 

CONTINUE 

01*0 

REIURN 

»o*s 

END 
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SUPBflUTJAE  MATCM 

CSHMOf,  MSCAM,ME*T,MUMTGT,T,OlOT,ENDTtM  , SM90E ( JO, ?0 ) 

1 ,PI,PI9VB?  ,T«flPI,BA0IAM,TAU(S0),r,8TAB,DNL{J9) 

? ,«YZI<30,u),XVZE(?0,a),TBGPrS(?0,T),8IGJAM(?0) 

J ,Sir.TiB(?o,  J),FHV(?u),$lG»8H(!8kIT(TCMPwR 

0 ,SHIP(9),»r<  J0),»«99Ef  J9,1?),|*|P0ECJ0#?) 

COMHOK/B/  ENVIBf  Ul),SUpC(  JO),»E»CMM,CCM,ACPNt|lf  TA, 

» 0"TP{?0)  ,P"IBZ,IKETF,»kT9m8,*k-htbm,i*pc8,»»L,P(>'I0^,E**I80 

C9“«00/C/*(J),Bf?0,J),P“*C?(?0) 

C9“M"M/TM/MTABr.  ,'lJAM,SPEEn(?C),MEADI(?O),MfADE(?o),TMAMI(?0), 

1 T*««Nrf?oj,*M4*iT(?n,  J),»manE(?o,  JJ,GT'J*»it?«),TU»N(20), 

? Cm(?9,?),BAOM(?9),ITYPE(?0),AIT(?o,5),TALT(?0,S),MAIT(?0) 

C«MMOM/T8/!ST»Tf?0),TSC*r»(?0,  JO) 

C 

C BMC*  SCA"TI*E  VAl.UES  «JTm  TIMES  EaC*  TaBGET  CflMfS  »JTmIN  SC 

C LIMITS 

C TSCAN(J.t)  IS  TIME  M90£  I EIBST  SCAMS  TABGET  J AETEB  TaBGET  J MAS 

C C9“f  »IThIn  badab  ImSTbUMEMTEO  9AMGE 

c 

Tma*  ■ l.EJS 
OS  P(.  J « l.MTABG 
C IMIT1ALIZE  ISTAT  VECT9B 

C ISTAT  • C TABGFT  MST  ACTIVATED 

C STAT  ■ 1 TABGET  ACTIVE 

ISTATIJ)  ■ 0 
no  10  »«|,J 
A(k)«»yzMJ,K)-ShIPM) 

10  C pm  T I MCE 

A“AG?PAf1)*A(1)*Af?J»Af?)AA(J)«A(JI 
IE  (ITYPE(J)  .EU.  ?)  GO  T 9 ?S 
C 

C MS  MAMFUVEB 

«CJ,1>  » XYZE(J,1)  - VyZKJ.U 
H(J,P)  • AYZEfJ,?)  . XvZKJ,?) 

TEMP  ■ «YZEM,J) 

IE  (ITYPF(J)  ,F0.  0)  Gfl  Tfl  IP 
Temp  ■ ALT(J,?) 

IP  MJ,)I  P T£MP  - XYZKJ.J) 

?n  mmag?(J)  * P(J,t)»»(J.|)  ♦ H(J,?)*"(J,Z)  ♦ 3(J,J)*B(J,J) 

Gft  TO  ?? 

C 

C BAUEUVF9 

?S  P(J,I)  ■ CPSIHEACKJI) 

9(J,?)  • S I M ( MF  ATT ( J ) ) 

BMAG? ( J ) • P( J,  1 JA&CJ,  1 ) ♦ 3(J,?)«ft( J,?) 

MfJ,J>  1 0. 

??  A09TS  ■ Af|)*MI,1>  t A(?)*SfJ,?1  ♦ A(J)*S(J,J) 

AnoT»?»AOPTS*An«iT« 

* • ITYPFIJ)*! 
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OtSC  ■ 4PrtB?  - PM4G2 ( ) ) • { 4“4G?  - P« 
G"  T»  MO,«0,SS) , * 

J'l  IffOlSC  ,GE.  n.D)  G"  TO  SO 

Ta*GET  hfVfP  mITmI*  P4nGf 
JS  TSC4MJ.I)  « TM4X 
GO  T*  »0 


4L 1 1 TUI)|  LEGS 

an  IP  (MG  .ft.  1 ) G»  TP  «; 

»PSfT  V41UES  P"»  IMTI4L  LEG 
4i. rm  a >40 
4nrt«J  a « 4HP 
B“4G?(JI  a «i**4G? 

4“*GP  a I4W4G? 

LEG  a 1 

#?  IP  (OIIC  .IT.  0.0)  GO  T*  «S 
Tf“l  a f »LT ( J#LE6) 

TP-2  a T4LT(J,LEG«1 ) 

TfB«  a JliBT (DISC ) 

i >•<  1 *••!»  a •)  ,0a  f 4CPTR  , TE«“)/B“4G?f  J) 

"PLUS  a (TfP-  - 40rTH)/8**4G2f J) 

• •<I»<"SB4>**» ) (li-lous.u.p) 

• •LUSa»**Is1  (UPL'Ji,  t .0) 

IP  I »*•  | n*uS  .GT.  «*LUS)  G"  to  «iS 
»SC»'‘  a Tt«l  t • «'IM/S*(TP“2  • Tf»l) 

tPioseax  ,gi.  Tf-n  .pon.  t»sc»‘.  ,lp.  tr«?n  go  t«  ts 

T4P6M  ►.p»M  *ITh1».  BanGP  "a  This  LEG  . L®"«  4T  \£«T  t.PG 

«S  IPG  a I.PG41 

IP  (l  P G .GE.  *i4LT(.)))  GO  T"  J5 
h(t,S)  a 4LTU.IPG*))  . 4LI  ( J,t  EG) 

r»  a n4LT(J,lfG)-»'rZI(J,a))/(»YZP(J,u).«Pri(J,«)) 

4(1)  a t»7|(J,l)  ♦ 0I«(X»7P(J,|)  - «YlI  ( J,  1 ) ) - ShIpm) 
4f?)  a »»ZI(J,7)  ♦ 0I.(P*7MJ,?)  . »v7I(J,?))  » S"IP(2) 
4(1)  a 41 T ( J,i P 0)  - ShiP(J) 

4«4G^a4n  )pP(I)*4(2)p4(7)«4(S)*4(1) 
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